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Program Listings In The Transactor 

- ^ 

All programs listed in The Transactor will appear as Ihey would on your screen in Upper/Lower case 
mode. To clarify two potential character mix-ups, zeroes will appear as '0' and the letter "o" will ol course 
beinlowercase. Secondly, Ihe lower case L('i') has a flat top as opposed to the number 1 which has an 
angled top. 

Many programs will contain reverse video characters that represent cursor movements, colours, or 
Junction keys. These will also be shown exactly as they would appear on your screen, but they're listed 
here lor reference. Also remember CTRL-q within quotes is identical to a Cursor Down, el al. 

Occasionally programs will contain lines that show consecutive spaces. Often the number ol spaces you 
insert will not be critical to correct operation of the program. When it is, the required number ol spaces 
will be shown. For exaniple; 



flush right" - would be shown as - print" [spacelOJflush right' 



Cursor Characters For PET / CBM / VIC / 64 



Do-wn - 

Up 

Right - 
Left - [Lh] 
RV5 - D 
RVS OH - 



Jii»eri 

Delete - Q 

Clear Scrn - 

Home 

STOP 



Colour Characters For VIC / 64 



Black - 
White - 
Red - 
Cyan - [Cyn] 
Purple - (Pur] 
Gr«en - ■ 
Blue - H 
Yellow- [Yet] 



Orange - 
Brown 

a. Red - 

Grey I - 

Grey 2 - 

Lt, Green - 

Lt. Blue - 

GieyS - 



[Gr3| 



Function Keys For VIC / 64 



Ft 
F2 
F3 
F4 



F5 
F6 
F7 
F8 
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Since I don't have a lot to say about any one subject, i'm going 
to blabber about a two or three. 

First off, how do like our new logo? We had been pondering fhe 
idea for some time and felt this issue was the one. New volume, 
new look, why not. Last issue is probably the last lime you'll 
see the familiar trapezoid with the rounded top corners. This 
was the shape of the label on the front panel of the original PET 
2001 and it has been used to border 'The Transactor" since the 
very first issue. Many times have 1 paid tribute to the legacy of 
the PET and the border was was just another link to the past. 
However, it's time to let go. The RAMs in my 2001 go tired now 
after about 20 minutes, but they hold a lot of memories; the 
cute little keyboard, disappearing cursors, snow, and the sec- 
ond cassette unit was state-of-the-art when it arrived. Remem- 
ber '*Karl J/'? Back then, when 1 was ordering all of 850 copies 
of the next Transactor, I never thought I'd be changing the logo 
forthe third time. 

June the hrst marks the third year of Transactor independence. 
A lot has happened in those three years. Recently we passed 
the 10,000 paid subscribers mark and we're shipping 54,000 
mags to the newstand market. The Transactor Disk is now 
firmly settled in our routine and, as Tm writing this. The 
Complete Commodore Inner Space Anthology is at the book 
bindery. My '^pack-rat" tendencies were in their most advanced 
stages and The Anthology is the sum total of the paper jungle 
that had almost assumed control of my computer room. 

Some of you might be asking, "What happened to the Network- 
ing and Communications Issue?'' and that would be a good 
question. We had so much material for our last issue, Aids and 
Utilities, that we thought we would do another one. It seemed a 
shame to postpone the articles that wouldn't fit into our page 
limit and the communications issue has a complete line-up of 
other articles that probably wouldn't allow enough space for 
the surplus. We'll be back onto our original schedule with the 
next Transactor and I apologize to the authors of material 
submitted for Networking and Communications that expected 
to see their work this time around. One bonus however, . . this 
issue has allowed us just enough extra time to make additional 
"stage 1 " improvements to the next one, Chris, Richard, and I 
are really looking forward to making a Communications ex- 
poseEhat will re-introduce the telecomputing fad to all, us 
included- 

Jack Tremiel and Atari are a hot topic these days. The media 
seem to enjoy the mileage they get from Jacks flamboyant 
attributes- (But really guys, don't you think the Atlantic Accept- 
ance incident is growing a little stale?) The defection of several 
Commodore employees to Atari is the latest publicity cache for 



Tramiel. At present I can think of at least nine of Commodore's 
key bees that have buzzed off- Of course you know what 
happens when the stinger is gone. . . However, Jack deserves a 
lot of credit. I mean, let's face it - the shock wave of the personal 
computer is over and I doubt Atari, Commodore, or any of the 
others can rekindle it. But if anyone can bring Atari back to a 
comfortable existence, it's Jack Tremiel. 

Atari has some fairly bold gladiators lined up but even the one 
and only J.T- will have a tough time matching the sonic boom of 
the VIC and 64. No, I believe the market has become mature to 
the sensationalism; games are no longer enough for the poten- 
tial micro buyer. Atari's new machines aren't games oriented 
but it's hard to imagine another market ever as big. The ST 
series, nicknamed the ^'Jackintosh" are aimed at, you guessed 
it, the Macintosh. Although Apple has enjoyed moderate suc- 
cess with this entry. Atari may be in for a workout. After all, this 
''type" of equipment needs a following to maintain continued 
success. The ST's late start means they forfeit the following to 
the Mac. The price may turn things around for Atari's ST future, 
but Commodore is not likely to soon be dethroned, although 
Atari claims they aren't after Commodore's market. Sure. 

On the software scene, "Counterfeiting" seems to be the latest 
buzz. Hit hardest was probably the Flight Simulator package by 
Sub-Logic, it's hard to believe that anyone would go to the 
lengths required to duplicate a package as complete and as 
detailed as Flight Simulator. Being slightly involved in the 
printing business, it soon becomes clear that in order to get a 
half decent per piece cost you cannot aim at any less than 
10,000 copies. Just how many counterfeits were produced is 
not known at this time and I hesitate to release details about 
those involved (the RCMP will be announcing arrests in just a 
few days from now) but the lost revenue for Sub-Logic must 
have been staggering, not to mention the other companies who 
have had their packages second generational ized. It^s a pity 
that those so close to the industry in which we occupy our- 
selves are not more understanding to the amount of effort that 
goes into creating a product to be proud of. It's also a pity that 
vague legislation surrounding computer software may well 
result in a mere slap on the wrists. In fact, based on what 
information I've managed to gather, it looks like several of 
those involved may never be implicated. 



However, there's nothinc as constant as change, 1 remain, 




Kaw J-H. Hildon, Managing Editor 
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Gb^ an interesting programming tip, short routine, or an unknown 
bit of Commodore trivia? Send it in - if we use it in the Bits tS Pieces 
cotumn, we'll credit you in the column and send you a free one- 
yearns subscription to The Transactor 

VIC/ 64 Clear Screen Line 

There's an easy way to dear any line on the screen right from 

BASIC: 

C-64: POKE 781 Jine:SYS 59903 
VIC-20: POKE 781 Jine;SYS 60045 

here 'line" is the screen line to be cleared, In the range 
through 24. 

Move Screen Line 

There's another general ROM routine that can be easily put fo good 
use; this one copies 40 bytes from a specified point on the screen !o 
the current cursor position. 

C-64: POKE 780,hi: POKE 172.lo: SYS 59848 

Where lo.hi represents the beginning of screen characters to 
copy (lo + 256'hi must be in the range to 999), 

For the VIC-20, use SYS 59990 



While We're Exploring ROM Routines. . - 
The Memory Transfer Subroutine 

Oflen you may wish to move a range of memory, for example to 
transfer screen or hi-res memory in or out. BASIC is too slow, bu! 
you don't need lo write a general-purpose memory transfer 
routine in machine language (although many of you probably 
have by now, anyway). 

The Kernal itself has to move memory around a lot, for example 
when inserting or deleting BASIC program lines, and there is a 
memory transfer routine built into ROM in all machines. The 
article in this issue ''LOAD & RUN'' uses the routine to transfer a 
machine language program to its proper address. 

Before calling the routine, there are three addresses which must be 
supplied: source start, source end+1, and destination end +/ (not 
slart+1). The vita) information follows. 



src start 


src end + 1 


dest end + 1 


subrtn entry point 


PET (2.0) 


$5C 


$57 


' $55 


$C2DF 


CBM (4.0) 


$5C 


$57 


$55 


$B357 

1 


c-e-i 


$5F 


$5A 


$58 


$A3BF 


VIC-20 


$5F 


$5A 


$58 


$C3BF 



Cheap Video-Game Dept- 

RACER is the concept of John Durko of Toronto, Ont. This has got 
to be one the simplest game programs around that is so much fun 
to play. The version below is for BASIC 2.0/4.0 PETs (40 or 80 
columns} and is only 13 lines long. If that's loo long for you, try this 
slightly compressed version — you have nothing lo lose typing in 4 
lines of code! 

RACER for 40 or 80 column PETs: (clear screen before running) 



1 w = 10:y-21:t = 20-w/2;x = 21:n = y:l = 32768 + y*SO 

:forr = 1tot:fori = 1ton:pokes,32 
2printtab(t)^(''spc(w)"*)";t = t + c:s = l + x;getx$ 

:Jfpeek(s)<>32thensr = nr = l:goto7 
3pokes,160:k = peek(151):x = x + (k=180)-(k=182) 

:c = sgn(c-2*((t<5)-(t + w>40))):next 
7n-rndm*10:c = int{rnd(1)'3)-1:nextr 




1 



:prinfB*** crasti! score= sr;sr*y*{20-w) 



Steer left and right with the 4 and 6 keys (or as indicated with VlC/64/ 
l6/-f-4 versions) to stay within the track as it changes its path. The 
variables 'W and T in line 1 control the width of the track and the 
screen line that the "car" appears on, respectively, A narrower track 
makes for a more challenging game, as does a lower screen line 
(greater value of 'Y'}, since you have less time to react to changes in 
the track. 

The "long" version of the program beiow pn^mpts you for track size 
and car position, providing defaults. It can also be modified to work on 
the C-64. VIC-20 (joystick or keyboard),16 or +4. In fact, this 
program could be made to work on any machine that runs BASIC; all 
you have to know is the location which stores the current key pressed, 
and where screen memory lies. 

After you crash, your score is given as two values; the first value 
indicates the number of "turns'^ that you survived, and the second is 
scaled to take into account the track width and car vertical position. 

Possible enhancements? Dynamically change the width of the track; 
change the "speed" of the car by changing its line position from 
joystick or keyboard controls; put random "obstacles" in the track 
which must be avoided; write il in machine code! 

One last point: if you have an 8032. you can speed up the track by 
setting the top of a window on a line above the car. 

Full-featured RACER for PETs: 




lOOrem" RACER -jd/cz 

110 print "H*' use 4/6 keys for left/riaht 

120 input'Btrack width (1-20) 1 



/rioht 



• • 



:w 
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EA 
BP 

EK 
NF 

IJ 

CD 
DG 
LA 
KO 
PK 




130inpul"carposition(1-23) 2u^ ;cy 

140 sc = 32768 + 80*cy:kbd = 1 51 :lf=ieO:rt = 162 

: rem-* machine-specific '* 
150b=1:e = 38:tw = w + 4:tl = 20-tw/2:cx = 20:s = sc:n 
160 for i = 1 to n;poke s,32:printtab(tl) " (* " spc{w) " *) ' 

;s = sc + cx 
1 70 if 1Kb or tl + tw>e then inc = (tl + tw>e)-(tl<b) 
1 80 get z$: if peek(s)<>32then220 
1 90 poke s, 1 60: k = peek(kbd):cx = ex + (k = lf)-(k = rt) 
200 tl = tl + inc:next:sr = sr -f 1 
210n = rndm*10:lnc = int{md{1)*3)-1:goto160 
220 print " HH "" you crashed!! ** — sc ore:" 



= cy 



sr;sr*(40-tw)*cy:print Hru 



OCX J 



C64 mods: 



140 sc= 1024 +40-cy:kbd = 56320:]f = 123:rt= 119 

: rem for joystick 
or 140sc = 1024 + 40*cy:kbd = 197;lt = 51.Tt = 

; rem keyboard; home/del keys 
165 pokes + 54272,1: rem colour memory (white "car") 

VIC-20 mods: 

140 sc = 7680 + 22*cy:kbd = 37151 :lf=122:rt= 118 

: rem joystick up/down 
or140sc = 7680 + 22*cy:kbd = 197;lf = 62:rt = 7 

: rem home/del keys 
150b=1:e-20:tw = w + 4:tU11-tw/2:cx=11;s = sc;n = cy 
1 65 poke s + 30720,0: rem black car 

16/ + 4 mods: 

140sc=3072 + 40*cy:kbd-198:lf-48:rt = 51 
: rem* crsr left/right keys 

NEW facts 

Many programs, after loading some machine code and changing 
BASIC pointers to protect the top of memory, contain the following 
line of code: 

NEW : CLR 

This is dumb for two reasons: 

1 ) The NEW command does a CLR automatically, free of charge. In 
fact, the CLR routine comes directly after the NEW routine in ROM, 
and NEW iust falls through into CLR, 

2} Any statement appearing after a NEW, even on the same line, 
even in direct mode. WILL NOT BE EXECUTED. Thus, NEWiCLR, 
NEWiPRINT, and NEW:SYS64738 all do the same thing: a NEW. 

So even though using the command NEWiCLR doesn't do any 
harm to your programs, it sure doesn't do any good. Leave off the 
CLR and let's put an end to this custom before it's carried on to 
future generations. 

C64 Programming Tip 

It is often desirable to be able to halt a machine language program 
by pressing a key. The usual approach is to use the "check stop 
key" routine at SFFEl and check the Z flag to see if the STOP key 
was pressed. This approach will not work, however, with pro- 
grams that disable IRQs, since the keyboard isn't being scanned. 

Another possibility is to actually scan the keyboard for a specific 
key by storing the keyboard row number {inverted) in location 
SDCOO, and checking location $DC01 for the value of the desired 



key. The problem with this approach is that the key must be down 
when the scan takes place for It to register. To make sure that the 
key is detected, it would have to be scanned frequently and 
possibly in several places throughout the program. That can be 
time-consuming, and using the keyboard in this way also inter- 
feres with operation of the joysticks. 

A good solution involves using the RESTORE key and NMl vector. 
Point the NMI vector to a routine which sets a flag (stores a nonzero 
value in some memory location), then jumps to the normal 
destination of the NMI vector. Whenever the RESTORE key is 
struck, it generates an NMI and this flag will be set. The machine 
language program can check the flag and exit if it is set. That way, 
no matter what the program is doing when the RESTORE key is 
hit, it will eventually find out about it when if gets around to 
checking the flag. When the flag is found to be set, it should be 
cleared (set to zero) before exiting to prepare for future runs. 

Defaults in INPUT Statements 

When using INPUT statements it's nice to provide the user with a 
reasonable default so that he/she can just press return in most 
cases. Here is a good way to do it: 



10 input" Drive number 




";dr 



After the prompt message comes three spaces, the default, fol- 
lowed by three cursor-lefts. If the default is more than one 
character long, increase the number of spaces and cursor-lefts 
accordingly. 

An added bonus of this technique is that you can reject invalid 
entries in a very nice way. For example: 



20ifdr<0ordr>l then print -M" ;:gotolO 



This will simply ignore any input other than or 1, without any 
drama. 



350800 And Its Relatives Elizatieth Deal, Malvern PA 

The ''350800 poison number^' mentioned in the BITS and PIECES 
of the Vol 5, Issue 5 Transactor is indeed a member of a class of 
neat numbers with high byte 137 (in fixed point format). This is 
due to a little bug in the PET, VIC and the C64 computers, as well 
as the APPLE. The bug does NOT exist in the RADIO SHACK 
computers, nor in theCommodore^sB-128, Plus 4 andC-16- 

Tracking the story down can be fun, and shows that the culprit is 
an intended error-exit from the routine that converts numeric 
characters in the BASIC text to a fixed point number. This routine 
is used for many things, one of them being BASIC line number 
entry, if you follow the PET code (below), beginning where it says 
'START HERE\ youll see (hat when a number's high byte exceeds 
hex $19 (25 decimal) the intent is to abort. But , . . the PET code 
jumps into the middle of the ON routine. Now when, and only 
when, your entered number has a high byte of 137 (hex $89) we 
fall into the trap. We pull an item off the stack and crash on trying 
to execute the code. By now. the action-address has been man- 
gled. In the upgrade PET, we end up in zero page, $C8 being the 
remaining byte on the stack. Good fun. 

You can look up the details in the Butterfield's maps - the 'perform 
ON' routine can be your starting point for disassembly. After ON 
comes the 'get fixed point number" routine which contains the 
multiply-by-10 code which is pretty long, and not reproduced 
here. The story ends with the call to the CHRGET routine and the 
loopback. Here are two disassemblies, one from the Upgrade PET 
(problems) and one from the B-128 machine (all fixed). 
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;perform ON 

c853 20 78 66 jsr $d678 



;bJg loop - while characters are numbers 



c856 
c857 



48 
c9 8d 



c859 fO 04 
C85b c9 89 



c85d 
c85f 
c861 
c863 



dO 91 

c6 62 

dO 04 
68 



pha 

cmp /^$8d 
beq $c85f 
cmp #$69 

bne $c7fO 

dec $62 

bne $c867 
pi a 



;gosub token? 

;goto?. . a trap (nto which we 
fall 



;<— herein lies the stack 
problem. 
c864 4c 02 c7 jmp $c702 ;dispalch command/rts 



c867 

c86a 

c86d 

c86t 

c871 

c872 



20 70 00 jsr $0070 

20 73 c8 jsr $c873 

cmp tf$2c 

beq $c85f 

pla 

rts 



c9 2c 
fO ee 
68 



60 



; — >START HERE -- get fixed point number 
c873 a2 00 Idx #$00 

11 stx $11 

12 stx $12 
do while characters are numeric 



c875 86 

c877 86 
;bigloop- 

c879 bO f7 

c87b e9 2f 

c87d 85 03 

c87f a5 12 

c881 85 It 

c883 c9 19 

c885 bO d4 

c887 a5 11 



bcs 

sbc 

sta 

Ida 

sta 

cmp 

bcs 

Ida 



$c872 ;all done - exit 

#$2f 

$03 

$12 

$1f 

#$19 



« * 



;is the number over 63999? 

$c85b ;yup. . .get out (into the trap!) 

$11 

;. . . etc- multiply by 10 routine 

C8a7 20 70 00 jsr $0070 ;chrget - from basic text 
c8aa 4c 79 cB jmp $c879 ;and loop back 



Here we tiave ttie same thinking, but this time in the B-128, An 
identical code is in the Plus 4 machine, see Butterfield's Pius 4 map in 
vol, 5. issue 5, It's clear as daylight that the problem has been fixed. 
Entering a BASIC line: 350800 print " what's the point? "just blows off 
to SYNTAX ERROR, If you follow this disassembly, you'll see the little 
fix: 



iperform ON 

t8d2b 20 d6 b4 jsr $b4d6 



t8d2e 48 


ptia 




f8d2f c9 8d 


cmp #$8d 


;gosub? 


f8d31 fO 07 


beq $8d3a 




f8d33 c9 89 


cmp #$89 


;goto? 


f8d35 fO 03 


beq $8d3a 




f8d37 4c 4f 


97 jmp $974f 


;nope. . .go to Syntax Error 


tSdSa c6 75 


dec $75 


;yes 


f8d3c dO 04 


bne $8d42 




t8d3e 66 


pa 





f8d3f 4c aa 87 jmp $87aa 

f8d42 20 26 ba jsr $ba26 

f8d45 20 4e 8d jsr $8d4e 

f8d48 c9 2c cmp #$2c 

t8d4a fO ee beq $8d3a 

t8d4c 68 pla 

t8d4d 60 rts 



;STARTHERE 
f8d4e a2 00 
f8d50 86 lb 
f8d52 86 1c 



get fixed point number 

Idx #$00 
stx $1b 
stx $1c 



f8d54 bO f7 

f8d56 69 2f 

f8d5e 85 Oc 

t8d5a a5 1c 

f8d5c 85 22 

f8d5e c9 19 

fSdeO bO d5 

f8d62 a5 lb 
;, . , etcmulti(:^y by 10 

f8d82 20 26 ba jsr 

f8d85 4c 54 8d jmp 



Tickerlape 



bcs 

sbc 

sta 

Ida 

sta 

cmp 

bcs 

Ida 



$8d4d ;normal exit, not a number 

#$2f 

$0c 

$1c 

$22 

#$19 ;over 63999? 

$8d37 ;yes, jump out to Syntax Error 

$1b 

$ba26 ;chrget-nexr character 
$8d54 ;loopback 



Dave Smarlt Russell, Ont> 



Mere's a good little ticker-tape routine — it can be used on any 
macfiine, but the 64 version has 'titk-tick' sound efects. The nice 
thing about this routine is that it can handle strings up to 255 
characters long. 

Usage notes: just put the string to be scrolled in QS, and GOSUB 100; 
youcanvary the speed by changing the '65' in line 160; line 105 must 
be changed for 80 or 22 column screens; the string Q$ is left altered by 
the roiiline. 

100 rem tickertape subroutine-dave smart 

105 In = 40; rem # of columns in screen 
110forl-1 toln: q$= " "+q$;next 
120forl = 1 toln q$-q$-f " ":next 
130forl = 1 tolen(q$)-ln + 1 

150 print mid$(q$,Mn)"H"; 
160fort=1 to65;nextt,l 
170 return 

Add the iollowing lines for sound effects on the C-64: 

1 06 poke 54273, 70:poke 54278,249: poke54276,1 7 
:poke54276,16 

140 poke 54296, 15:poke 54296,0 



Debugging Aid Update 



R.C. Marcus, Agincourt, Ont. 



Mr. Marcus writes, 

'1n the latest issue of Bits & Piecesm issue 5 vol. 05. was included a 

handy 'Built-in debugging aid'' for BASIC 4.0 matzhines.' 

I would like to add more information along this line. This is a BASIC 
routine and is in BASIC ROM of the VIC. 64 and by your listing of the 
16/ 4- 4 memory map, page 25 of the same issue, it resides there as 
well 

It is referred to as Print 'IN' routine and resides in the following 
locations: VIC, 56770; 64, 48578; I6/ + 4. $A453. 

A SYS to the appropriate location will provide this handy feature," 

Easy Program UN-NEW After Reset 

Last issue's Bits & Pieces presented "REGAIN" to restore your BASIC 
program after a system reset or a new. If you crash and reset, but don't 
have REGAIN in memory, you can use this method, sent in by Alan 
Ciooney of Cranbourne, Australia: 

poke 2050,1 :sys 42291 :poke 46.peek(35) 
:poke 45,peek(781) + 2: cir 

If this gives an error message then 

poke 45.peek(781)-254.poke 46,peek(46) + 1 ; cIr 
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1 54 1 DOS Crash With REL Files John Menke, Mt Vernon IL 



Press RESTORE. Or this: 



'Tailure to properly close a relative file crashes Ihe 154rs DOS. 
Subsequent disk operations will give unpredictable results, probably 
damaging other files, the directory, and BAM, Use of the initialize 
command V only apparently and deceptively sets things nghl. The 
DOS will not work correctly after the initialize in this case. It must be 
reset with 'UJ' or 'U:* or by turning the drive off momentarily. " 



1541 DOS Wedge Tips 



John Menke 



if 



Most of Ihe 1541 wedge commands work in program mode with a 
minor syntax change; whatever follows ®, >. /, t or -^ must be in 
quotation marks. There appears to be a problem only with the % 
command when used in this way. These commands must be on their 
own on a separate program line; in some cases they'll work as Ihe last 
statement on a line. Variables are not recognized as fiie names by the 
wedge commands. The following program lines illustrate the three 
most useful applications which I have found for these commands: 

10@"$' 
20 < 

30 1 " program name " 

Line \ lists the directory, and as usual the space bar stops/continues 
the listing on the screen. Line 20 reads the disk error status and prints 
it to the screen. Lme 30 is useful in loaders, or in chaining programs." 



One-Line Decimal ^ Base B A Hooyer, He Soest Holland 

To convert from decimal value 'D' to base 'B' with output length 'L*: 

8nS=''-:fori = 1tofh = d:d = tnt(h/b)h = h^d*b 
:n$ = chr$(h-t-48-7'(h>9)) + n$,next:return 

Resultin'NS'. To convert 'NS" from base 'B' to decimal, output in "D': 

9 d = O:fori = 1 tolen(n$);h = asc(mid$(n$,i)) -48 
:d = d*b + h + 7 •{h>9): next; return 

Examples: 

From decimal to hex: d = 4096:b = 16:1 = 4:gosub 8:print n$ 

From binary to decimal: n$= '1000101 ■:b = 2:gosub9:prlnt d 



Restore Key Fun 



Scott MacLean, Georgetown, Ontario 



Most programmers know that 

poke 808, 205 

will disable RUN STOP/RESTORE, but it has other minor side effects, 
such as disabling the LIST function etc. The RESTORE key is tied 
directly into the 6510 NMi (Non-Maskable Interrupt) line. When you 
press it, it jumps through a vector at 792-793 to wherever it goes, does 
its stuff, and has its fun. It is possible to replace the vector with say, 
49152: 

poke 792, 0: poke 793, 192 

Ha, now when we press RESTORE, it jumps to location 49152, and 

starts doini^ things. Let's put an RTI (Return from Interrupt) instruction 

there with; 

poke 49152, 64 

Now press RESTORE! Neat! Wow! When you press it, nothing hap- 
pens! Try RUN STOP/RESTORE. Still nothing. Try this: 

poke 49152, 32: poke 491 55, 64: poke 792. 0: poke 793, 192 

X = 226:Y-252 

poke 491 53,X: poke 49154,Y 



X = 234:Y = 232 Or: X = 34:Y = 228 



Quick Note: The 8250 Dual Drive records files in sectors 
spread 5 apari as opposed to 3 apart in the 4040, 8050, and 
154 L 



Screen Save Update 



R.C Marcus, Aglncourt, Out. 



The handy method to save the screen which appeared in the recent 
issue under Bits and Pieces, titled "Put Mental Notes on Disk (or 
tape)!", can be indeed a useful tooL It can be used as well on the VIC 
with the appropriate changes to the Kernel SYS's. 

Unfortunately, with the limited screen of the VIC this direct mode 
entry lakes up three to four lines, depending on the length of the 
filename; plus another for the "SAVING ..." message, so in all, a 
possible five lines are taken or 1 10 character positions. As the screen 
has only 506, this is a fair amount of space just for the saving 
instructions. 

The attached short program is for the VIC with any memory 
configuration, h provides screen save with a single command; SYS 
828, The program saves up to the second last line of the screen, so 
by placing the SYS command on the second last line, as instructed 
by the BASIC loader program, it does not scroll the screen or appear 
when the screen is recalled. This gives 462 screen positions for 
message characters. 

This program places a machine language program in the tape buffer, 
so it can only be used in dJsk-based systems. The filename is built 
into the routine as "scr(shifted spacejml" and appears in Ihe disk 
directory as " scr " ml; the ml is the reminder I use to indicate that 
the load command must include the " .1" to indicate a relocating 
load. 

To recall a saved screen, LOAD it in with: LOAD " scr \8, 1 . Putting 
the LOAD on line IS will cause the "READY." to appear near the 
bottom of the screen and not mess up the message. 

The routine does the save without the SAVING message to conserve 
screen space, but will print error messages if they arise. It also saves 
with the replace option, so be sure to rename your old screen file if 
you don't want it wiped out by the next one you save. 

1 00 rem basic loader for screen save 

110forp = 828lo379, read a: pokep.a; cs = cs + a: next 

120 if CS06685 then print "errort. in dala"spc(14) 

" statements. " : end 
1 30 print "sys828'... on the 2nd "spc{11)" last line to "spc{10} 

' save screen. " 
140data169, 64, 32,144,255,169. 0,162 
150data 8,160, 1, 32,186,255,169, 9 
160data162, 103, 160, 3, 32,189,255,169 
170data 0, 133,251, 173, 136, 2, 133,252 
180data164.252,200, 162, 205, 169,251, 32 
190 data 21 6, 255, 96, 64, 48. 58, 83, 67 
200 data 82, 160, 77, 76 
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Auxiliary Bits 



(for the +4/C16,B Series, 1541, and 8050) 



Elizabeth Deal 
Malvern, PA 



H-4 and C16 Bits 

These computers are miracles. What follows are some notes 1 have 
which may well be unintelligible (o the begniners, but can be of 
use to someone familiar with other Commodore machines. The 
User's manual is rather complete, so these are just additional 
comments: 

Character strings are handled differently than in previous ma- 
chines: there is no such thing as pointers into a program. All 
strings declared inside a program are copied to RAM {usually 
hidden under ROM). There are no garbage collection delays. 
Additionally, new fimctions can be done with the strings: 

1 . The first one is assignment statement with M1D$ on the left, Yup, 
you're seeing it correctly. It's now OK to code: 

MID$(a$,4,2)=^de' 

This will change whatever was in positions 4 and 5 to be "de*\ 
Can you see why strings can't live inside a program? Would be a 
programming nightmare if Ihey did, 

2. iNSTR function returns a position of one string within another, 

so 

INSTR${^xyz"/y") 

returns 2. You can also specify a starting position for the search. 
The old code 

forj = 1tolen(a$);ifx$ = mid$(a$,],1)thennextj 

is no longer needed, and the INSTR function is instantaneous! 

Hurray to Commodore- 
Tape is incompatible with other CBM machines. The connector is 
different, but that's the small part. The timing is different. !t seems 
that the writing goes at about half the speed of the previous units. 
The code to accomplish tape writing and reading is enormous. 
Reading is particularly difficult because the TED chip functions 
differently: there is no such thing as detecting a negative transition 
- all transitions have to and are being detected in software. The 
screen is turned oJf to permit 1 .7 mhz operation. Still, it is a slow 
process. 

Tape errors are funny. If you happen to position a tape to the very 
tippy-end of a program you don't want to load, the computer 
reports BRBAK error (*30) and does not go on to look for the 
program you do want. Using error trapping (TRAP statement exists 
in the language!) is the way to go in program mode. 



Generally, error numbers when used with tape are wrong. You 
may get a DEVICE NOT PRESENT ERROR, when you think it 
should be a FILE NOT FOUND ERROR, You invariably get BREAK 
ERROR when the end-of-tape header has been read in. This 
would be only a cosmetic nuisance, were it not for the fact that a 
STOP-key also causes a BREAK error. It's hard to tell one from 
another 

There is lots of RAM in the machine, and one lends to play a lot of 
hide-and-seek games in finding things. Some clues: 

1. Page 4 contains various indirect routines that permit taking 
bytes from ROM or RAM. These routines are used by BASIC. 

2. In page 7. specifically at $7d7 is an equivalent routine for use by 
the machine code monitor. 

3. BASIC PEEK returns a byte from RAM. Machine Language 
Monitor returns a byte from ROM. MLM normally saves only 
RAM. you can^t save ROM. BASIC SAVE normally saves RAM. 
LOAD loads bytes into RAM, as you'd expect. Sometimes you 
may wish to change the defaults. It can be done: 

(a) To PEEK ROM from BASIC: modify a routine in page 4 (at 
$0494) to ignore the store instruction; 

poke1176, 44 : now peek ROM . pokell 76,141 

This is fairly safe, so long as you DO NOT WORK ANY STRINGS 
BETWEEN THE TWO POKEUTS INSTRUCTIONS. This, for in- 
stance, is the only way you can get at the character generator ROM 
from BASIC, as far as I can telL 

(b) To peek/save ROM from the MLM, set bit 7 in the byte at $7f8. 
Incidentally, the monitor has a nice feature - '>7f8 80^' is all 
you need to type in, the *>" sets bytes and displays just one line 
of memory. 

The MONITOR is nice, it^s almost like SUPERMON. But there is a 
serious bug - they chopped the TRANSFER command: T with 
overlapping addresses does not work in one direction - when the 
destination is higher in memory than the source. The bytes just 
write one over another and you lose all your work, A cure: first 
Transfer to another, non-overlapping area, then do a second 

transfer to where you wanted to go in the first place. 

Colour memory, as in the C64, contains the colour codes for the 
1000 screen bytes. One difference, bit 7 is the flashing bit. Funny 
things happen when you load the C64 colour map into, what's now 
called, screen attributes map in the Plus 4. You get flashing for 
nothing. 
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To change the colour attributes from the C64 POKEs into the 
COLOR statements, you'll need to add one to each value, as the 
Plus 4 colour numbers are from 1 to 16. POKE values are still 0-15, 
but there is little reason to use them. 

The keyboard is a delight. Perhaps a bit too soft, but easy to use. 
The ESC sequences are a joy to use. There is even a pause-all- 
outpul key: two keys actually - CTL--S. with any other key 
restarting the output. There is only one problem: if you use CTL-S 
during a program run, and use a subsequent GET slatemenl. the S 
will appear to the GET statement as a real input - \ think it's a bug - 
the keyboard buffer isn't cleared, so you'll have to do it yourself. 

Programmable function keys are useful. Unlike in the B machine, 
most of them have a carriage return at the end. [ don't like this 
feature, but it can be easily changed. Unfortunately, the keys are 
active inside a running program. Watch out here: if you use GET, 
and the user pushes the DIRECTORY key, all the letters in 
'DiRECTORY' including the carriage return will be delivered to the 
GET! If you don't want it to happen, there is a way to disable the 
function keys: either set them all to null ( " " } inside a program and 
redefine at the end, or POKE their lengths to zero. 

The default colours and luminances for the sixteen colour keys are 
in RAM. They are in a table in page 1 at $1 13. You can change 
them as you wish. Machine code people who love to POKE the 
stack (auto-run programs!) will have to stay away from this area. 

Some of the structured BASIC statements are splendid. For in- 
stance, the DO WHILE construct permits you to code a loop that 
will never execute (FOR-NEXT loops always run at least once, 
unless you test and skip around). The interpreter seems to be 
looking ahead, almost like a compiler: it skips the loop and al! the 
loops inside it. EXIT permits leaving a loop early. LOOP UNTIL 
tests a condition at the end of a loop. What more can we ask? 

The character table is half the size of that in the C64. Reverse 
characters aren't in ROM, they are software-generated. You may 
have to take this into account if you convert programs from the 
C64 to the +4/C16 machines. Pointing the character base address 
is simple. It does require POKEs, a rare event in this machine: 
using the BASIC method (above) or the monitor transfer com- 
mand, move the characters to any RAM. Then tell the TED chip 
about the move: tell location $ffl3 the page number of the start of 
your character definitions, then clear bit 2 at location $ffl2. That's 
all there is to it. Much simpler than in the C64. Incidentally, it is 
perfectly all right to speak in semi-hex to the BASIC interpreter 

hence 

P0KEDEC(TF12'), DECC7r) 

will tell the chip the character base is at $7000. What's that 1 doing 
in $71? No connection, nothing. Nothing is a one. I don't know 
why. 

When you play with non-ROM character set, a nasty thing can 
happen: an exit from the monitor or any error in BASIC resets 
things only half way back to normal. So the screen becomes a 
mess. Several solutions: TRAP all errors in BASIC. Do not leave the 
monitor (guarantees learning machine code by the total immer- 
sion method). Hold STOP and push the little reset button. Define a 



function key to (blindly) type the reverse maneuver to set the 
character base to the default again. Enjoy the crazy screen sight 
and push some keys while you do so - it's actually an interesting 
display. 

ft is possible to move the screen memory anyplace in RAM. The 
TED chip needs to be told of the move, of course. $FF1 4 register is 
the place to use. However, 1 know of no way to print on the screen 
when it's not in the standard location. You can POKE it, you can 
flip it, you can do all sorts of things with the relocated screen, but 
no printing. The print command ($FPD2) delivers bytes to the 
default location and only there. It should be possible, if you must 
print on a relocated screen, to reroute output to your own routine 
(page 3 vectors) but I doubt that it's worth the trouble. 

The GRAPHIC split screen always splits five lines from the bottom. 
The bottom five lines are in the text mode, the top is bit-mapped. 
The constant which controls the split raster line is coded in ROM, 
hence a bit rough to change. However, there is a link in the 
interrupt-service code which does permit you to modify the place 
of the split screen, if you must do it. 

Disabling the STOP key is a favourite pastime of many people. It's 

quite easy on the Plus 4 computer - use a TRAP statement and trap 
error *30 to resume execution. I know, however, of one situation 
where the STOP cannot be TRAPped. That is in I/O. Tape LOAD 
illustrates it quite well, as things are slow: the STOP can be 
TRAPped after the message "LOADING" would appear, not before- 
While the computer is searching for a header, it uses another way 
to test the STOP. It looks directly at the keyboard register in the 
TED chip, and it never tells BASIC about it. The same is probably 
true with the serial disk, but if is a bit harder to catch, as things 
happen faster. A moral: to disable a STOP during 1/0 use a little 
machine code, especially if your program uses tape. The whole 
exercise is almost pointless anyway, as the little reset button lets 
anyone in. I like that. 



B'128, 1541, and 8050 BiU 

I wish Commodore would reconsider their decision to drop the B- 
machines, B-128 is a terrific machine. Sure it's hard to program, 
but it's fun. It has superb BASIC, superb keyboard, 2mhz clock, it's 
fast and pleasant to use! 

There are an assortment of curiosities about the machine itself and 
some disk drives; 



Happy news: On the B128 the files close themselves! When an 
error condition causes a disk file to remain open, editing a program 
line makes the disk whirr a bit and a file gets closed. It's incom- 
plete, but it's not a • file anymore. Clever and useful - if you keep 
the drive door down, of course. 



There is a RESTORE <line number> command in BASIC, just as in 
+ 4. 

BLOAD "filename" drive,unit,bank,address loads program files 
and does not cause BASIC to run from the beginning. A splendid 
feature. 



Th« Tb^nsoctor 



Vo1um«6,l*su«01 



BASIC programs which have machine code tacked on to the end 
are difficult to manage. They can be run, but don't try to SAVE'em 
without first fixing the pointers up. LOADing such programs 
causes the end-of-program pointer to be set to the byte following 
the three zeros (ouch!)- Editing a line (or just pushing a RETURN 
over a line) on the screen does the same thing. 

There appears to be a bug in the screen editor which can unre- 
verse reversed characters such as home, cursor directions, etc. in 
quotes. This only happens if you insert characters ANYWHERE on 
a line containing the control characters and only when you use the 
INST key. [f you use ESC-A/C to enter/cancel the insert mode, 
then the line is not ruined. Something is wrong in the setting of the 
insert-flag but you can prevent trouble by pushing RETURN twice 
over such lines if you have used the INST key. Say it again Sam, . . 

There is an ^'initialize the drive" command in BAS(C-128. it is 
DCLEAR Dl {for drive '1). 1 don't know why, but I keep thinking it 
can NEW the disk. Funny name. 

The DOS built into the 8050-drives that come in the Protecto 
package is a fairly advanced version number 2.7 as you can see in 
the sign-on message. 

There has been a change in the way character string functions 
work. While ASC of a null byte still returns ILLEGAL QUANTITY 
instead of a zero (as in the PLUS 4), ASC of characters outside the 
siring aren't ignored anymore; ASC(MID$( " ABC " ,4)) is now ILLE- 
GAL. 

Machine Language monitor is a bit rough to use. Some pointers; 

L You can enter the MONITOR by a call, bankl5;sysl4*40% does 
it. You will never exit the monitor, even pressing the reset 
button doesn't work. This can be useful if you are messing with 
page zero and rather not exit to BASIC, The exit address is in 
$fO:M«/9Jtcanbec[ian8ed. 

2. Normal entry is via a break; bankl5;poke6.0:sys6 does the job. 
Exit is nasty, it clears the screen, among other things. Once 
again, you can change the reset vector to a beUer setup, 

3. Probably the most annoying feature of the resident monitor is 
that all error commands default to loading and running ma- 
chine language programs. A pest. 

4. The G (gu) command is dangerous: do not lr>' to Go to another 
bank, the crashes are unreal, 

5. Do not use the Z-command. It tries to work a co-processor, 
whatever that is, which isn't (here. Consequently we crash. 

6. There is a nice little monitor, called EXTRAMON, on the TPUG 
disk. It has a fairly clean exit to BASIC, as it does not clear the 
screen. However, do not use the B-exit if you have run a Go 
command. Most likely you will crash. 

7. Crashing has a new twist. Much of the time you don't really 
crash. The cursor comes back, and things may appear normal. 
But a closer look reveals, for instance, that your BASIC text is 
mangled up, the transfer sequences may have funny bytes put 



in them, and so on. So - like in the old days, shut off, and start 
from scratch - even when you see the cursor. 

If you store a byte in RAM that Isn't there and try to read it back, do 
something between the two operations. A little bit of time (Jim 
BuUerfield says 14 microseconds) are needed for the address to 
vanish and a real byte to come through. Otherwise the read 
operation gives a false result, IVe been putting three NOP instruc- 
tions, that's 12 cycles. That may be cutting it too close. 

If you have a mismatch-type of error in READing DATA items, the 
B-machine reports an error about the DATA line itself, rather than 
the READ statement. 

! suspect that there has been an undocumented change in the way 
1£EE devices function since the 4040. Things that are plugged in 
but not turned on cause a bus crash. For instance, a printer that is 
connected but not on will cause a crash if you try to LOAD or SAVE. 
Incidentally, the same is true in the Plus 4 machine -two 1541 disk 
drives, one not turned on, will also crash the system. Can anyone 
explain this? 

Another change is that a 1541 and an 8050 drive must have the 
complete error message read off the drive. You can no longer look 
at the first value (first byte of the error message) and quit if it's good. 
The whole thing has to be read in to that last carnage return. 
Failure to do so causes strange problems which are hard to debug. 
In the case of relative tiles, the light continues to flash on the 1 54 1 , 
but not so on the 8050, Non-relative files and/or the 8050 give no 
clue. So read the whole message. Again, this change hasn't been 
documented by CBM, as far as I know, but I've seen the trouble 
ever since the 1541 was born, and now get the same behaviour in 
the 8050, Life sure was simpler with my old PET and 40401 

The MPS 8050 drive with DOS 2.7 has a bug: if you try to copy a file ' 
from one drive to another, and the file already exists on the 
destination drive, the disk crashes. BASIC COPY command and 
the monitor's wedge crash in this way. The only way out is to reset 
the disk (on/off switch) and then button-reset the computer. The 
fault doesn't seem to be in the B-machine, since it behaves 
correctly with the 4040 drive (FILE EXISTS DOS-error). My Up- 
grade PET also has trouble with the 8050, yet none with the 4040. 

Do not trust the writeup of the KERNAL routines in the various 
guides to the B-computer. Some routines are described correctly, 
others are copies of the C64 guide and may not function the same. 
For instance, to read the ST, a major task on the B, you must set the 
carry bit. If you don't, you'll be setting ST to a value in the A- 
register. Not a very nice thing to do, when you're reading a file, . , 

Due to the zero-page pointers, programs saved from the B 128 do 
not LIST verywell on any other Commodore computer, if you need 
compatibility, put BASIC higher in memory. PET-type of a setup 
seems to be the best thing - BASIC at ;025 {$401 in bank 1). The 
pointer to start of BASIC is in bank 1 5 at $2c/2d. 

Keyword token numbers have been shifting recently. You cannot 
count on the PRINT USING token, for instance, to be the same in 
the B machine as on the Plus 4. The standard command (PET 
vocabulary) numbers are the same, but there is no pattern with the 
expanded commands. A bit nasty for a program such as LISTER. 
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Letters 



We appreciate feedback from our readers, and we read each and 
every one we receioe. However, due to the volume ofmcoming mail it 
is sometimes impossible to reply personally, especially to technical 
questions and inquiries. Further, many inquiries have similar nature. 
Those questions which we feet would be of general interest will be 
included in the letters section. Also, we make every attempt to keep 
one step ahead of potential questions - keep a regular eye on our 
News BRK section for these and other important announcements. 

Bbits: Two additional liltle pieces of informalion about the B-128 
that's being closed out through Profecto. 

L The cassette read line is connected to the 6526 CIA at bit 4, $DCOD 
(56333). similarly to the (he '64, The bit is set on a negative 
transition, and cleared by reading SDCOD, Whether it triggers an 
IRQ or not depends on how the interrupts are enabled. 

This wee bit of info is neither in Transactor V4/5 {p,49) nor in 
Butterfield's Machine Language book, 

2, The video chip in my B-128 is a 6845, not a 6545, The 6845 lacks 
the auto-increment register of the 6545, but permits interlaced 
scan as an option which the 6545 does not. So 1 tried it: 

POKE 55296.8: POKE 55297,2 

This puts the display into interlace mode, with each line being 
duplicated a little bit lower on the odd scans. The idea is to fill in 
between the lines so that a solid block looks solid rather than striped, 
and a vertical line looks like a solid line rather than dotted. Well, it 
works, except that on the monitor I'm using (a cheap BMC), there is a 
lot of iitter. I believe that most monitors don't like interlace, and I 
rememt)er that the Ullralerm display card for the Apple (made by 
Videx) has the same problem; there are just a few monitors that are 
satisfactory with an interlaced display. But at least it's something to 
try, and to decide for oneself which mode is preferable. 

Charles A. McCarthy St. Paul MN 

Diskpleased; With surprise and disappointment 1 read volume 5, 
issue 5's news of the advent of the Transactor Disk. 

Some other magazines offer their programs on magnetic media, but 
they are directed in large part or almost in whole toward non- 
programmers, such as Gazette, Run, and Ahoy!, 

Your publication, however, promised only one issue earlier to remain 
high level. The idea is not just to get and run programs but to read the 
articles and TYPE in the listings in order to learn programming 
techniques and tricks. Distributing the completed product defeats the 
purpose: instant foods have a rightful place in grocery stores and in 
kitchens but not in schools of haute cuisine. 

You have seriously undermined your position. Til continue subscrib- 
ing to Transactor in print, but no thank you for the magnetic version, 

David W. Tamkin Chicago, Illinois 

The choice is yours^ 

SlDioyocrasies: If you have a place for a HELP section or Questions 
I would be interested in some information on the audio input for the 



C64, Specifically; *l: What kind of signal is the port expecting; low 
like a mike or guitar or an amplified signal like that of a home stereo? 
*2: From what I read the only mention of the ability to merge is with 
the synthesizer sound and to run it through the envelope generator. If 
the envelope generator can modify the sound under computer soft- 
ware then is there somewhere to read the audio in 'in memory'? Bet 
there is. huh? Rick Cronee, Jackson, TN 

The letters section is as good a place as any for help, so here goes: 

1) The SID chip audio input will accept a signal of around 200 
millivolts peak to peak. This is typically the kind of level you 'd get from 
an audio component 's signal output, for example kom the TAPE OUT 
jack of a stereo receiver A guitar should work fine, but an unampHfied 
microphone 's signal would probably be too weak to compete with the 
bockround noise and output from the SID chip itself. 

2) The external input can be put through any of the three program- 
mable fitters (low pass, band pass or high pass), which are controlled 
from addresses $0415 to $D417. The only instantaneous audio 
signals that can be read are the signal level and amplitude envelope of 
SID voice 3. These values could theoretically be used as filter or 
volume values to modulate the external input, but unfortunately 
there s no way to read the external input itself You might, however, try 
to interface your audio source to one of the paddle ports and read the 
paddle register. 



DiskMod Nolea: Recently we have received quite a few tetters stating 
that Jim Butterfield 's BASIC DiskMod isn 't too friendly with the C64/ 
1541 combo. Inaccurate and partial readings hvm sectors plus really 
poor screen editing are the two major complaints. Well, by going 
through the code, and using it as per Karl's article, everything but line 
140 is OK. This particular version was designed to be machine 
portable with bat one minor dependency: the screen memory location. 
32768, which is for the PET, should be changed to the correct start 
address of your machine. 

By reading through the complaints, a simple cure has been found for 
the problems described. When up and running, the program will osk 
you for the drive number of the drive in question. Answer it with an 's' 
for single drives (1 541/2031), or 0/1 for the IEEE dual drives. This is 
very important due to the way Jim reads and modifies disk data. He 
accesses disk RAM direct, therefore he requires the correct RA!\4 buffer 
start addess to do it properly. You will notice in the code that he 
assigns the string variable B$ a value of CHRS(I7) os default, but 
changes it to CHRS(3) if the answer to the drive type is 's '. This is the 
high byte of the start address, translated into $1100 for the dual drives 
and $0300 for the single units. Without a correct answer at this point, 
you will find odd things happening in the read/write department 
Perhaps a print statement should be incorporated into the program to 
state this fact. We leave this to you. 

One final note. When the first half of the data has been displayed on 
the screen with the 40 column machines, you will notice a prompt of 
'swap' suddenly appearing. If you want to see the balance of the data 
from that particular sector, press 's'to swap over to the second half of 
the sector Simple, but another point a few of you didn 't quite pick up 
on. 
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Lock Spurs; A letter has arrived regarding Jim Butlerfiefd's 'Lock 
Disk 64' program . The compfaint was that it didnt work at oit. We 
checked it out. and everything is fine. But, to use the program, you 
haue to remember that Lock Disk for the 64 works in a rather odd 
manner. Once fired up it will ask you the name of the program to 
convert, then the name of the converted program. Given the correct 
responses, the new iocked program is written to disk. After, if the 
locked program is loaded info the computer without ' .8,1' , it will just 
load, but the list wilt t>e a new load statement. Run it and the program 
will be booted correctly horn disk. If loaded via '' .8.1" . it will 
automatically run once the load is complete. Another neat trick written 
into the code is a vector change to stop your program from ever 
ending. If ever your computer goes back to 'ready' mode, for whatever 
reason it might have, it will automatically re-run the program once 
again. Your problem was that your new locked program would 
constantly flash the intra message on the screen once loaded Sounds 
like either an end statement in your code, or a syntax error encoun- 
tered. Check your code and try again. It should work. 

Slipped Disk; 1 jusl finished reading your latest issue (Vol. 5. issue 
05) and I found Michael Quigley's article on the 1541 informative, 
especially after my unhappy experiences this past weekend. 

Whal with Xmas presents and afler-Xmas sales, I found myself with 
quite a few programs so I spent quite a bit of time on Sunday making 
backups for my own use. Eventually, as 1 was copying one of my disks, 
my 1541 went bonkers. At least the flickering red lighl reminded me 
of Christmas. A call to the Commodore service centre in Pennsylvania 
revealed that they would repair/ replace the unit, which would no 
longer read hies, for $85,00 (prepaid, of course). So, I went home at 
noon for lunch, found a box and prepared to part with my money and 
drive, I had not intended to ship it with the cardboard shipping piece 
in the drive, but I decided (o do so. As I inserted it into the drive, 1 felt 
something move at the back of the machine. Since hope springs 
eternal and since I really wasn't looking forward to three more weeks 
of down time, I re-connected it and VOILAI it was working properly. 
Exactly what happened or why I don'l know, but that little piece of 
cardboard saved me a lot of money and unhappiness. 

John D. Baird, Norwalk, OH 

Apparently fate was smiling in your direction that day. In general 
though it never hurts to have a hardware PEEK. Sometimes pushing 
an IC firmly back in its socket is just enough to cheat fate and render a 
problem harmless. Besides, after 3 months you no longer need to be 
concerned about voiding the warranty. But even prior to the three 
month grace period, if your disk spends three weeks at the shop, that's 
three weeks when a real problem could arise which might otherwise 
occur three weeks after your warranty expires. I'm not sure if Commo- 
dore extends the warranty period if warranty service is performed, but 
who needs to be without their equipment when the problem is but a 
lamb in wolf's clothing. This and other self-service tips will be appear- 
ing in a future Transactor. 

Compu-Artlsts Unltel: Hi! I am an artist working in the new 
medium of computer graphics and I have noticed something very 
interesting about computer-generated art that I want to tel! you about. 

I noticed that there are a lot of programs, drawing pads, printers, and 
so forth for the creation of computer art. Computer graphics Is now an 
easy thing to get into, unlike 2 years ago when I first got started. 

What is frustrating is that there are very few opportunities for com- 
puter artists to display their work. Most art magazines ignore com- 
puter art and fewer galleries have showings of it. 



I think what needs to be done is for us to organize ourselves into a 
group, for the purpose of educating the public about what computer 
art can represent and bring pressure on art competitions to open 
categories for computer graphics. Also, galleries aren't going to pay 
attention to computer art until a group comes along and starts beating 

at the door. 

So could you do me a favour and please print my name and address so 

I can get into contact with others working in this medium? Thank you. 

George Bailey, 6474 Highway 1 1 . Deleon Springs, FL, 32028 

Perhaps you should contact Wayne Schmidt at 41 East 1st Street, Apt. 
2W, New York, NY, 10003. Wayne has done several pieces for Ahoy! 
magazines and I'm sure there are several more that haven "t yet been 
seen. I'm also sure Wayne would love to hear from you. 

Point 11 AWOL: In Volume 5, Issue 06 (Programming Aids and 
Utilities), there is an article on aligning the 1541 disk drive. Point *H 
is missing and nothing is said about tightening the second screw. 

If there is something left out, i would appreciate knowing about it as 

we intend to do this from time lo time. 

Harvey B, Herman, Professor and Head, University of North Carolina 

You 're right, point number 1 1 got left out and should have stated the 
next logical step in the re-assembly process, tightening the remaining 
stepper motor screw. 



Transbloopers 

Dynamic Expression Evaluator: Volume 5, Issue 04 

The DATA statements are fine, but there's a glitch in the BASIC 
loader portion. In line 155. '1F B60 , . . " should read '*IF 
B6=0 ...'\ and the checksum In line 190 should be 10928 
instead of 1330. We didn't catch this error until now because it 
seems the majority of you found it and corrected it yourself. 

List Scroller: Volume 5, Issue 06, page 52 

The firsHineof the BASIC Loader program should be line 10. 
not 0. This won't effect the operation in any way, but the 
"Verifizer" code will show as incorrect for the first line unless 
you make It a 10, 

STP: Volume 5, Issue 06, page 55 

The article stated that a version of STP (hat resides in the 
cassette buffer would appear on Ihe Transactor disk for Vol- 
ume 5 Issue 06, but alas, that version never made it to the disk. 
We'll try to squeeze it onto the next one. Also, the first line of 
the source lisUng should be line 1000, not 00. 

Aligning the 1541: Volume 5, Issue 06, page 65 

Point number 1 1 was left out; it should have said to tighten the 
remaining stepper motor screw. (See the Letters section.} 

TransBASTC: Volume 5, Issue 06, page 20 

The command 'CURSOR' and the function VIOC were men- 
tioned, but omitted from the program listings. They can be 
found in this issue's TransBASIC column. 
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The MANAGER Column 



Don Bell 
Scotland, Ont 



Letters to The Manager 

Transferring or Archiving Records 
from One Disk to Another 



Carrol W. Dauenhauer (Grelna. Lousisiana) wants to know if 
you can transfer records from one file to anolfier and Continue 
to dump records to that fiie irom the orginal file. 

If your original data file is getting almost full, you may want to 
store or 'archive' some records on another disk e.g. orders that 
have been completed or filled- Bear in mind that once sepa- 
rated from the orginal file, these records can oniy be manipu- 
lated and accessed through their own separate file. Also, as far 
as 1 know, you can only copy records one group at a time, i.e. 
you cannot keep dumping records, a few at a time to 1 archive 
file. Rather, the pattern will be to create several archive files 
each according to some criteria you set, disk 90% full, end of 
time period or say, reached a certain quota. 

You can copy 'active' records from one file 
to a new file on another disk. 

The best trick here is to set aside the first field in your record as 
a 'flag* for indicating whether a record is to be transferred or 
not. I would just make it a 1 character alphanumeric field in 
which you would place an 'a* for an active record and a X if you 
want it to be transferred^ 

(1) Choose the MANIPULATE FILES option then select *Copy a 
Data File". COPY ACTIVE RECORDS OR ENTIRE FILE? 
Choose W {for active). This will copy all 'active' records not 
flagged as deleted, i.e. any record that has a blank or 't" in 
the first field, but nota"&'. 



You now have a second file that has both active records and 
records to be transferred, but not 'inactive' Or deleted records. 

(2) Now you can delete the "transferred' records in the original 
file as you now have a backup or archive copy of them. Do 
this by using the 'Global Change' function on field 1, 
changing 't" to '&'. This frees up space for more 'active' 
records in your original file, 

(3) In order to purge your new archive file of 'active' records, 
you can also use the 'Global Change' function on field 1, 
only this time changing 'a' to *&\ 

If you are conscious of saving disk space, you may want to 
go one step further and create a third file. You could make a 
copy of only the 'active' records in this file. This will leave 
you with a file containing only records that are completed or 
orders that have been filled with no blank records. You may 
then erase file two, the intermediate file. 

All of this is useful for creating single 'archive' files in one 
shot. The problem is that you cannot keep dumping more 
records to this archive file. You will just keep making a 
bunch of little archive files every time you want more disk 
space. Within THE MANAGER' itself, there is no way of 
appending records from another file or concatenating files. 
If someone out there wants a good challenge, there's one to 
work on! 
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TransBASIC 
Installment "^3 



- Nick Sullivan 
Scarborough, Ont. 



7b (his point. Nick has introduced the concept of TransBASIC (a method for building custom 
commands to be incorporated into BASIC) and tfie structure of a TransBASIC module wa^ 
discussed in part 2. To take adoantoge of new TransBASIC command listings, one must first 
obtain a copy of the TransBASIC Kernel The Kernel is only about 500 bytes long, but the source 
listing of the Kernel is quite long and can t be printed each time. Volume 5, Issue 05 (Hardware <§ 
Peripherals) contains the printed fisting, however The Transactor Disk for every issue will include 
this file, plus files from the current and all previous TransBASIC articles. 

Note: The CURSOR command and the CLOC function were described in part 2, but the source 
listings were omitted. They will be included here. 



A TransBASIC ROMp 

The routines listed here are useful in composing TransBASIC 
statements and functions; some are indispensable and are used 
time and again. Many other routines and bits of routines may be 
found in the BASIC and Kernal ROMs. Aids in discovering them 
include: Jim Butterfieid's memory maps, Sheldon Leemon's "Map- 
ping rhe Commodore 64" (COMPUTE! Books, 1984), a machine 
language monitor (like Supermon), and lots of time to browse. 

CHRGET AND CHRGOT 

These two routines are the means by which BASIC fetches bytes 
from the input stream, which can be either program text or a direct 
mode command line. A pointer at $7A/7B generally points to the 
byte most receniiy fetched. The byle is returned in the accumula- 
tor; ,X and .Y are not affected. The carry flag will be returned set if 
and only if the byte is not an ASCII numeral. The zero flag will be 
returned set if and only if the byte is a statement terminator (0 or 
S3A, the colon), 

CHRGET ($73) is visited en route to the execution routine for 
BASIC and TransBASIC statements; therefore such routines begin 
with the accumulator holding the first byte following the statement 
token. The same byte can subsequently be re-obtained, and the 
flags reset, by calling CHRGOT ($79). The above also applies to 
function execution routines in TransBASIC, but not in BASIC itself. 
which handles function calls in a slightly different manner. 

TYPE AND SYNTAX CHECKING 

The first two routines affect the status register only: 

44429 $AD8D Ensure that last expression evaluated was of nu- 
meric type; or show a TYPE MISMATCH ERROR. 

44431 $AD8F Ensure that last expression evaluated was of 

string type. 

The next routines test the current byte in the input stream against 
a specified value. If the tesi fails a SYNTAX ERROR is shown. The 
routines exit via CHRGET putting the next byte from the input 
stream in the accumulator. 



44791 $AEF7 Test for right parenthesis. 

44794 $AEPA Test for left parenthesis. 

44797 SAEFD Test for comma. 

44799 $AEFF Test for character in .A 

EXPRESSION EVALUATION 

Most of these routines expect the CHRGET pointer to be already 
pointing to the first byte of the expression to be evaluated. Only 
one, at $B79B, begins with a call to CHRGET to get the first byte of 
the expression on its own. After these routines the CHRGET 
pointer points to the first byte beyond the evaluated expression. 

44446 $AD9E The workhorse of the evaluation routines. It de- 
cides whether the expression is of string or nu- 
meric type, then evaluates it and sets the 
expression- type flags in SOD and SOE appropri- 
ately. If the expression is of siring type, a pointer is 
left at $64/$65 to the descriptor of the resultant 
string. If the expression is of numeric type the 
result is left in Floating Point Accumulator *L 

44426 tADSA This routine calls $AD9E to evaluate the expres- 
sion, then calls $AD8D to make sure that it was of 
numeric type. 

44785 $AEF1 Check for opening parenthesis, evaluate the en- 
closed expression with $AD9E, then check for 
closing parenthesis. 

44788 $AEF4 SameasSAEFl but without the check for opening 

parenthesis. This can be used when the opening 
parenthesis is part of a function keyword, 

47003 $B79B This routine calls CHRGET to get the first byte of a 

numeric expression between and 255. The 
result is left in .X. An ILLEGAL QUANTITY ER- 
ROR is shown if the expression evaluates to an 
out of range result. 

47006 SB79E The above routine should be entered here 11 

CHRGET has already been called 

47083 $B7EB Get two parameters of Ihe type used by the POKE 

statement. The first, an unsigned integer, is left in 
$14/15. The second is an integer between and 
255; it is left in ,X. The parameters must be 
separated by acomma. 
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NUMERIC CONVERSION 



ERROR MESSAGES 



47009 $B7AJ Convert the number in FPA'l loan integer in .X. 
45482 $B1AA Convert the number in FPA*] to a signed integer 

in .A (high byte) and ,Y (low byte). 
45969 $B39 1 Convert the signed integer in .A (high byte) and Y 

(low byte) to a floating point number in FPA *1. 

Convert the number in FPA *1 to an unsigned 

integer in .Y (low byte) and .A (high byte), and in 

$14/15. 

Convert the number in .Y to a floating point 

number in FPA *1. 



47095 $B7F7 



45986 $B3A2 



Jumping to any of the following routines will print the appropriate 
message, clear the slack, and restore direct mode. There are many 
others besides those given here. They may be easily found if 
needed. The same thing may be accomplished at the expense of 
Iwo extra bytes by loading .X with the error message number and 
jumping through the BASIC error routine vector at $0300. 



42037 $A435: 
42353 $A571: 
44808 $AF08: 
45640 $B248: 



OUT OF MEMORY ERROR 
STRING TOO LONG ERROR 
SYNTAX ERROR 
ILLEGAL QUANTITY ERROR 



STRING HANDLING 

These routines can be used in various ways to develop statements 
and functions for manipulafing strings. 

46324 $B4F4 The boltom-of-slring-memory pointer at $33/34 

is moved down by the number of bytes specified 
by -A. A garbage collection is done if necessary, 
The new pointer value is also put into $35/36, 
and is returned in .X (low) and ,Y (high). The 
original contents of ,A is retained there. 

46205 $B47D Th]sroutinecallstheaboveoneal$B4F4, but also 

saves the address of the reserved space at $62/63, 
and the number of reserved bytes at $61. 

46282 $B4CA This routine converts the data lefl in S61/62/63 

by the previous routine into a descriptor on the 
temporary descriptor stack. It leaves a pointer to 
the descriptor in $64/65. 

46755 $B6A3 This routine checks Ihat the most recent expres- 
sion was of string type- Then it uses the pointer in 
$64/65 to create a pointer to the string data in 
$22/23. The length of the string is left in ,A. The 
address in $22/23 is also contained in .X/.Y after 
thecal!. 

46758 $B6A6 This is like $B6A3, but without the check for 

siring type. 



TWO USEFUL TESTS 

43052 $A82C Check STOP key, and execute STOP statement if 

it has been pressed. 
45990 $B3A6 Show ILLEGAL DIRECT error if in direct mode. 

Next issue, we'll try using some of these routines to create an 
actual Trans BASIC command. 



New Commands 

This part of the TransBASlC column is devoted to describing the 
new commands that will t»e added each issue. The descriptions 
follow a standard format: 

The first line gives the command keyword, the type (statement or 
function), and a three digit serial number. 

The second line gives the line range allotted to the execution 
rouhne for the command. 

The third line gives the module in which the command is in- 
cluded. 



PRINTING CHARACTERS AND STRINGS 



43847 $AB47 



43735 $AAD7 

43839 $AB3F 
43842 SAB42 
43845 $AB45 
43806 $AB1E 



43809 $AB21 



43812 $AB24 



Print the character in -A to the current output 
device. This routine just calls the usual Kernal 
output routine ($FFD2) but includes i/o error- 
checking. 

Print a carriage return and, if the current output 
device is not the screen, a line feed as well. 
Prim a space- 
Print a cursor right- 
Print a question mark- 
Print the string whose address is contained In .A 
(low byte) and .Y (high byte). The string must end 
in zero. 

Set up a string using the routine at $B6A6 (see 
page 5), then print it. 

The same, assuming the call to $B6A6 already to 
have been made. 



The fourth line (and the following lines, if necessary) demonstrate 
the command syntax. 

The remaining lines describe the command. 



CURSOR (Type: Statement Cat ': 004) 

Line Range: 2574-2604 

Module: CURSOR POSITION 

Example; CURSOR 11 

Example; CURSOR ROW,COL 

Moves the cursor to specified row (0-24) and column (0-39), 

Column zero is assumed if no second parameter is present. 

CLOC (Type: Function Cat*: 005) 
Line Range: 2606-2618 
Module: CURSOR POSITION 

Example: IF PEEK(CLOCK>32 GOTO 100 

A quasi-variable that returns the actual memory location of the 

cursor. 
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COLSPR (Type: Stalement Cat *: 031) 

Line Range: 3530-3548 

Module; SET SPRITES 

Example: COLSPR 1.0: REM MAKE SPRITE '1 BLACK 

The specified sprite (0 to 7) is set to the specified colour (0 to 255). 

SSPR (Type: Statement Cat ■; 032) 

Line Range; 3550-3558 

In Module{s): SET SPRITES 

Example: SSPR 4 

The specified sprite is switched on. 

CSPR (Type: Sfatement Cat *: 033) 

Line Range 3560-3572 

In Module(s): SET SPRITES 

Example: CSPR 1 

The specihed sprite is switched ofL 

XSPR (Type: Statement Cat *: 034) 
Line Range: 3574-3626 
In Module(s}: SET SPRITES 
Example: XSPR 1,312 

The specified sprite is positioned at the specified horizontal loca- 
tion (0 to 511). 

YSPR (Type: Statement Cat "; 035) 

Line Range: 3628-3654 

In Module(s): SET SPRITES 

Example; YSPR 5,59 

The specified sprite is positioned at the specified vertical location 

(0 to 255). 

XYSPR (Type: Statement Cat *: 036) 

Line Range: 365G-3662 

In Module(s): SET SPRITES 

Example: XYSPR 0,H + l.V-l 

The specified sprite is positioned at the specified co-ordinates. 

\VITH1N{ (Type: Function Cat*: 040) 

Line Range: 3698-3784 

In Module{s): WITHIN 

Example: [FWITHIN(i3;A,l6)THEN PRINT ''CLOSE ENOUGH!" 

WITHIN( takes three numi^ric arguments. If the second argument 
is greater than the first, and the third greater than the second, it 
returns "true' (-1); otherwise it returns 'false' (0). The comma used 
as a separator is equivalent to less than'; the semicolon is equiva- 
lent to "less than or equal to'. 

XLOC( (Type: Function Cat*: 041} 

Line Range: 3786-3810 

In Module(s): READ SPRITES 

Example: XSPR 3,XL0C(l} 

Returns the horizontal position (0-511) of the specified sprite (0- 

7). 

YLOC( (Type: Function Cat*: 042) 

Line Range: 3812-3828 

!nModuie(s): READ SPRITES 

Example: IFYLOC(6)>190 GOTO 200 

Returns the vertical position (0-255) of the specified sprite. 



Program 1 



IL 


rem cursor position {sept 4/84) : 


FH 


1 : 






Jl 


2 rem 1 statement, 1 function 


HH 


3: 






BE 


4 rem keyword characters: 


10 


JH 


5: 






NJ 


6 rem keyword routine 


line ser # 


GD 


7 rems/cursor csr 


2574 004 


LP 


8 rem f/cloc 


: csrioc 


2606 005 


NH 


9: 






ME 


10 rem u/usfp (2620/006) 




PH 


11 : 






KD 


12 rem = = = 


r 




Bl 


13: 






DC 


101 .asc "cursoR" 




El 


600 .asc 'cloC" 




G 


1101 word 


csr-1 




MP 


1600 .word csrloc-1 




BE 


2574 csr 


jsr $b79e 


iget first parameter 


MG 


2576 


cpx #$19 


;muslbeunder 25 


ML 


2578 


bcs cs2 


;saveon stack 


M 


2580 


txa 




CJ 


2582 


pha 




EM 


2583 


Idy #0 


;assume column 


CP 


2584 


jsr $79 


;branch if no 


EN 


2585 


beq cs1 


; second parameter 


LO 


2586 


cnip#"/ 


;tiasto be comma 


PB 


2587 


bne cs3 




NN 


2588 


jsr $b79b 


;gel parameter 


AH 


2589 


cpx #$28 


;muslbeunder40 


GD 


2590 


bcs cs2 




BD 


2592 


txa 


;move it to y 


BP 


2594 


tay 




JK 


2596 csl 


pla 


;recover row param 


BP 


2598 


tax 




NA 


2599 


cic 


;jumpto kernal 


BM 


2600 


jmp $fffO 


; plot routine 


KN 


2602 cs2 


jmp $b248 


;illegaf quantity 


DD 


2603 cs3 


mp $a08 


; syntax error 


CK 


2604; 






KH 


2606 csr oc Ida $d1 


;$d1 and $d2 


ON 


2608 


c(c 


; contain the 


MM 


2610 


adc $d3 


; start ot row 


FO 


2612 


tay 


; ocation, $d3 


CO 


2614 


Ida $d2 


; contains the 


GJ 


2616 


adc #0 


;coumn. 


AL 


2618: 






KK 


2620 usfp 


dx #0 


;convert .a(high) 


FM 


2622 


stx $0d 


; and .y (low) 


DN 


2624 


sta $62 


;from unsigned 


PB 


2626 


sty $63 


; integer to 


JG 


2628 


Idx #$90 


:foating point 


FA 


2630 


sec 


; number in 


FO 


2632 


jmp $bc49 


ifac#1 


AM 


2634; 







16 



Volum«6, l»u«01 



Program 


2 


P 


3608 txa 


;sprite number 








^ : 


KO 
JK 


3610 asl 
3612 tax 


;double it 
;use as index 




LG 


rem set sprites (aug 25/84; 




FH 


1 : 




Al 


3614 Ida $14 


;getx low byte 




PH 


2 rem 6 statements, (unctions 


KE 


3616 jsr raschk 


;wait for raster 




HH 


3: 




GO 


3618 sty $d010 


;write msb 




AF 


4 rem keyword characters: 27 


CJ 


3620 sta $d000,x 


iwrite ow byte 




JH 


5: 




CB 


3622 rts 






NJ 


6 rem keyword routine 


ine ser# 


GA 


3624x33 jmp $b248 


;i egal quantity 




CB 


7rems/colspr cosp 


3530 031 


AK 


3626; 






HE 


8 rem s/sspr ssp 


3550 032 


lA 


3628 ysp jsr chsl 


;get sprite number 




MC 


9 rem s/cspr csp 


3560 033 


KD 


3630 ysl txa 


idouble it 




HG 


lOrems/xspr xsp 


3574 034 


LN 


3632 asl 






PG 


11 rems/yspr ysp 


3628 035 


OE 


3634 pha 


;set it aside 




OK 


1 2 rem s/xyspr xysp 


3656 036 


LA 


3636 jsr $b7f1 


;comma, y-position 




B 


13: 




HE 


3638 txa 


;move it to .y 




IP 


14 rem u/chkspr {3664/037} 




HA 


3640 tay 






HM 


1 5 rem u/raschk (3676/038) 




AA 


3642 pla 


;get2*(sprite#) 




ON 


1 6 rem d/powers (3694/039] 


\ 


JM 


3644 tax 


;use as index 




Ft 


17: 




HN 


3646 tya 


; y-position 




AE 


18 rem = = = = = = = = = . = .. = ^ = = = 




KG 


3648 jsr raschk 


;waitfor raster 




HI 


19: 




EN 


3650 sta $d001,x 


; write position 




PE 


108 .asc " CO spRsspRcspR 


n 


AD 


3652 rts 






JG 


109 .asc 'xspRyspRxyspR" 


1 


ML 


3654; 






EH 


11 08 .word colsp-1 ,ssp-1 ,csp-l 


OF 


3656 xysp jsr xsp 


;write x-position 




ML 


1109 .word xsp-1.ysp-1,xysp-1 


OA 


3658 Idx t3 


;get sprite number 




BF 


3530colsp jsr chsl 


;get sprite number 


A[ 


3660 bpl ysl 


; write y- position 




A 


3532 txa 




EM 


3662; 






IN 


3534 ptia 


;save it 


JO 


. 3664 chksprjsr $73 


;bumpchrget ptr 




FN 


3536 jsr $b7f1 


;check comma and 


CB 


' 3666 chsl jsr $b79e 


;get sprite number 




NA 


3538 pla 


; get colour 


LB 


3668 cpx #8 


;must be under 8 




AO 


3540 tay 


;sprile# is Index 


Gl 


1 3670 bcs xs3 






Kl 


3542 txa 




EE 


3672 rts 






BD 


3544 sta $d027,y 


; poke colour 


AN 


3674; 






GM 


3546 rts 




HI 


3676 raschk pha 


;store accumulator 




CF 


3548; 




IG 


3678 rasi Ida $d012 


;read raster line 




OK 


3550 ssp jsr chsl 


;get sprite number 


BK 


3680 sbc $d001,x 


: subtract sprite-y 




HN 


3552 Ida powers, x 


;setthebJt 


AF 


3682 bcc ras2 






KO 


3554 ora $d015 


;or sprite enable 


NH 


3684 cmpn2b 


;wait till 




GP 


3556 bne cspl 


; rgstr, turn on 


ON 


3686 bcc rasi 


; clear of sprite 




MF 


3558; 




FN 


3688 ras2 p a 






J 


3560 csp jsr chsl 


:get sprite number 


GF' 


3690 rte 






BO 


3562 Ida powers,x 


isetthebit 


CO 


3692; 




1 


KP 


3564 eor #$ff 


;maskitoul 


FJ 


3694 powers .byte 1 ,2,4,8,1 6,32,64,1 28 


' 


BF 
NL 


3566 and $d015 
3568 cspl sta $d015 


;and sprite enable 
; rgsln turn off 


GO 


3696; 










ON 


3570 rts 




Program 3 




KG 


3572; 










AN 


3574 xsp jsr chsl 


;get sprite number 


AE 


rem within (aug 25/84) 


4 




GK 


3576 stx t3 


;save it 


FH 


1 ; 






JN 


3578 jsr Saefcj 


;get comma 


EC 


2 rem statements, 1 function 




JB 


3580 jsr $ad8a 


;get x position 


HH 


3: 






K 


3582 jsr $b7f7 


;conv to integer 


HO 


4 rem keyword characters: 


7 




NA 


3584 da $15 


;get high byte 


JH 


5: 






HB 


3586 cmp #2 


; branch if 


NJ 


6 rem keyword routine 


ine ser # 




FD 


3588 bcs xs3 


; too high 


GK 


7 remf/within{ within 


3698 028 




KM 


3590 Idx t3 


;get sprite number 


MH 


8: 






IB 


3592 ror 


;put msb in carry 


Dl 


9 rem u/pshfpl (3270/063) 






BA 


3594 Ida powers.x 


;setthebit 


HI 


1 rem u/pul57 (3308/064) 






CM 


3596 bcc xsl 


;branch on msb 


PH 


11 : 






IK 


3598 ora SdOlO 


;or msb register 


KD 


12rem'- =======. 


= == = A3 = = S3 = = ==3 




NO 


3600 bcs xs2 


;sklp 


Bl 


13: 






MP 


3602x51 eor #$ff 


;mask the bit 


KA 


607 asc 'within' : byteSaS 




AG 


3604 and $d010 


;clearihebit 


GC 


1607 .word within-1 






D 


3606 xs2 tay ;save msb 


1 


BE 


3270 pshfpl Ida #3 


;fac#1 to stack 
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JG 


3272 


jsr 


$a3fb ; 


check stack room 


FC 


3274 


pi a 


9 


save return addr 


HJ 


3276 


sta 


$71 




GF 


3278 


pi a 






OJ 


3280 


sta 


$72 




Nl 


3282 


jsr 


$bbca ; 


fac#1 to$57-$5b 


GN 


3284 


Idx 


#0 ; 


clear index 


Jl 


3286 phf1 


Ida 


$57. X ; 


copy area 


!M 


3288 


pha 




to slack 


GL 


3290 


inx 






PD 


3292 


cpx 


#5 




GN 


3294 


bne 


phfl 




GM 


3296 ph(2 


Ida 


$72 ; 


restore return 


IB 


3298 


pha 


r 


address 


BH 


3300 


Ida 


$71 




CG 


3302 


pha 






EN 


3304 


rts 






AG 


3306; 








KG 


3308 pul57 


pa 


J 


$57. . . from stack 


OH 


3310 


sta 


$71 ; 


save return address 


IH 


3312 


pa 






AM 


3314 


sta 


$72 




KP 


3316 


Idx 


#4 ; 


initjajze index 


OG 


3318 pl57 


pa 




copy to area 


PL 


3320 


sta 


$57,x : 


starting at $57 


BL 


3322 


dex 






DA 


3324 


bp 


pi 57 




HN 


3326 


bmi 


phf2 ; 


restore return address 


GH 


3328; 








L 


3698 within 


1 jsr 


$ad8a ; 


read numexpr 


K 


3700 


jsr 


comtst ; 


secifval2 within 


El 


3702 


php 




bounds, and save 


OP 


3704 


jsr 


comlst ; 


ditto 


OB 


3706 


bcc wthl ; 


'false' on clear 


JM 


3708 


ptp 




recover flag 


BJ 


3710 


pha 




dec stack ptr 


EC 


3712 


bcc 


wthl ; 


■false' on clear 


HN 


3714 


da 


#$ff ; 


-1 = 'true' 


JJ 


3716.byle$2c 




.'bit' to hide Ida 


AB 


3718 wthl 


Ida 


#0 ; 


;0 = 'false' 


J 


3720 


jsr 


$bc3c ; 


;convertsign totp 


DM 


3722 


pi a 




;inc stack ptr 


NO 


3724 


jmp 


$aef7 


;skip close bracket 


EA 


3726; 








OC 


3728 comtstjsr 


pshfpl 


;fac#1 to stack 


ML 


3730 


jsr 


$79 


; reread separator 


NN 


3732 


pha 




; and save it 


FF 


3734 


jsr 


$73 


;bump chrget pointer 


BL 


3736 


jsr 


$ad8a 


;read nun expr 


JM 


3738 


pa 




icheck separator 


MO 


3740 


cmp#"," 


iComma(<) is ok 


OL 


3742 


beq 


ctl 




KL 


3744 


cmp*";' 


;semicolon (<^} is ok 


EP 


3746 


bne ct4 


;anything e se is wrong 


HO 


3748 


cic 




;clear for semicolon 


LL 


3750 .byle $24 




;'bit' tohidesec 


KJ 


3752 ct1 


sec 




;setfor comma 


DK 


3754 


ror 


t3 


isavefagashigh bit 


HD 


3756 


jsr 


pul57 


;stackto$57area 


lA 


3758 


da 


#$57 


;compare area with fac 


LP 


3760 


idy 


m 




OA 


3762 


jsr 


$bc5b 




CO 


3764 


bmi 


ct3 


;val1>val2, false 


JA 


3766 


bit 


t3 


;commaif n fag set 


JJ 


3768 


bpl 


ct2 


; val1< = v^2, true 




BO 

FH 

DH 

HH 

BE 

JH 

NJ 

IL 

DK 

NH 

EP 

JN 

Al 

LC 

MO 

Dl 

OD 

Fl 

JA 

AF 
GA 
JO 

CB 

LB 

Gl 

EE 

AN 

FJ 

GO 

ML 

HA 

FC 

LH 

DG 

DK 

AO 

OF 

OP 

PL 

OK 

JJ 

IF 

IN 

BC 

PD 

FJ 

LL 

NA 

PL 

MA 

KG 



3770 
3772 
3774 Ct2 
3776 
3778 ct3 
3780 
3782 ct4 
3784; 



tax 

beq ct3 

sec 

rts 

cIc 

rts 

jmp $af08 



;val1 =val2, false 
; return true 

;relurn false 

; syntax error 



Program 4 

rem read sprites (aug 25/84) : 

1 : 

2 rem statements, 2 functions 
3: 

4 rem f<eyword characters: 1 

5: 

6 rem keyword routine line ser# 

7remf/xloc( xloc 3786 041 

8remf/yloc( yloc 3812 042 

9: 

1 rem u/chkspr (3664/037) 

1 1 rem d/powers (3694/039) 
12: 

13 rem this module also contains one 

1 4 rem line from set sprites — 3624 
15: 

16 rem ==== =...=========. 

17: 



608 .asc "xloc" : ,byte$a8 

:a8 = shifted ( 
1608 .wordxloc-1,yloc-1 
3624 xs3 jmp $b248 
3664 chksprjsr $73 
3666 chsl jsr $b79e 
3668 cpx #8 

3670 bcs xs3 

3672 rts 

3674; 

3694 powers .byte 1 ,2,4,8.1 
3696; 

jsr chsl 

jsr $aef7 

txa 

asl 

lay 

Ida $d000,y 

tay 

Ida 



,asc "yloc" : .byte$a8 



; illegal quantity 
;bump chrget ptr 
;get sprite number 
;mu3l be under 8 



3786 xloc 

3788 

3790 

3792 

3794 

3796 

3798 

3800 

3802 

3804 

3806 

3808 xll 

3810; 

3812 yloc 

3814 

3816 

3818 

3820 

3822 

3824 

3826 

3828; 



powers,x 
and SdOlO 
beq xll 
Ida #1 
jmp $b391 



6,32,64,128 



get sprite number 
skip bracket 
double sprite # 

use as index 
get X low byte 



gel msb 
zero, msb clear 
non-zero, mbsset 
.a/.y to fac#1 



get sprite number 
skip bracket 
double sprite # 



jsr chsl 
jsr $aef7 

txa 

asl 
tay 
Ida $d001 .y ;get y position 

tay 

jmp $b3a2 ;.ytofac#1 
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Using "VERIFIZER" 



The Transactors Foolproof Program Entry Method 



VERIFIZER should be run before typing in any long program from 
the pages of The Transactor, It will let you check your work line by 
line as you enter the program, and catch frustrating typing errors. 
The VERIFIZER concept works by displaying a two-letter code for 
each program line which you can clieck against the corresponding 
code in fhe program listing. 

There are two versions of VERIFIZER on this page; one is for the 
PET, the other for fhe VIC or 64. Enter the applicable program and 
RUN it- If you get the message, ''***** data error ***"*". re-check 
the program and keep trying until all goes well. You should SAVE 
the program, since you'll want to use it every time you enter one of 
our programs. Once you Ve RUN the loader, enter NEW, then turn 
VERIFIZER on with: 

SYS 828 to enable the C64/VIC version {turn it off with SYS 831) 
or SYS 634 to enable the PET version {turn it off with SYS 637) 

Once VERIFIZER is on, every lime you press RETURN on a 
program line a two-letter report code will appear on the top left of 
the screen in reverse field. No(e that these letters are in uppercase 
and will appear as graphics characters unless you are in upper/ 
lowercase mode (press shift/Commodore on C64/VIC). 



With VERIFIZER on, just enter the program from the magazine 
normally, checking each report code after you press RETURN on a 
line. Ifthecodedoesn't match up with the letters printed in the box 
beside the listing, you can re-check and correct the line, then try 
again. If you wish, you can LIST a range of lines, then type 
RETURN over each in succession while checking the report codes 
as they appear Once the program has been properly entered, be 
sure to turn VERIFIZER off with the SYS indicated above before 
you do anything else. 

VERIFIZER will catch transposition errors (eg. POKE 52381,0 
instead of POKE 53281 ,0), but ignores spaces, so you may add or 
omit spaces from the listed program at will (providing you don't 
split up keywords!). Standard keyword abbreviations (like nE 
instead of next) will not affect the VERIFIZER report code. 

Technical info: VERIFIZER resides in the cassette buffer, so if 
you're using a datasette be aware that tape operations can be 
dangerous to its health. As far as compatibility with other utilities 
goes, VERIFIZER shouldn't cause any problems since it works 
through the BASIC warm-start link and jumps to the original 
destination of the link after it's finished. When disabled, it restores 
the link to its original contents. 



KE 

JF 

LI 

BE 

DH 

GK 

FN 

KP 

AF 

IN 

EC 

EP 

OC 

MN 

MG 

DM 

CA 

NG 

OK 

AN 

GH 

JO 

EP 

MH 

BH 



Listing la: VERIFIZER for C64 and VIC-20 

10 rem' data loader for ' verifizer ' * 

15 rem vic/64 version 

20 cs - 

30 for i = 828 to 958:read a:poke i,a 

40cs = cs + a:nexti 

50: 

60 ft CS01 4755 then print" ♦♦*•* data error ***** 

70 rem sys 828 

80 end 

100: 

1000 data 76, 74, 

1010data252, 141, 

1020 data 3,240, 

1030 data 251, 169. 

1040 data 3, 3. 

1060 data 0,160/ 
1060 data 32,240, 



Listing 1 b: PET/CBM VERIFIZER (BASIC 2.0 or 4.0) 



: end 



2, 
3, 
2, 



1070data133, 90, 
1080 data 232, 208, 229, 56, 
1090 data 32,210,255, 169, 
nOOdata 89, 41, 15. 24. 105, 
1l10data165, 89, 74, 74, 74, 
1120data 32,210,255,169,146, 
liaOdata 32,240,255,108,251, 
1140data101, 69, 133, 89, 96 



3,165,251,141, 

3, 3, 96,173, 

17,133,252,173, 

99,141, 2. 3,169, 

96, 173,254, 1, 133, 

0, 189, 0, 2,240, 

15,133, 91,200, 152, 

3, 198, 90, 

32,240,255,169, 

18, 32,210,255, 



32,183, 



J. 

3, 

3, 

3, 

89, 

22, 

41, 

16, 



97, 32,210, 

74, 24, 105, 

32,210,255, 

0,165, 91, 



165 

201 

133 

141 

162 

201 

3 

249 

19 

165 

255 

97 

24 

24 



CI 
OF 
Lf 
HC 
DH 
GK 
OG 
JO 
AF 
IN 
ON 
IB 
CK 
EB 
HE 
01 
JB 
PA 
HE 
EL 
LA 
Kl 
EB 
DM 



10 rem* data loader for "verifizer 4.0" * 

15 rem pet versjon 

20cs = 

30 for i = 634 to 754:read a:poke i,a 

40cs = cs + a:nexti 

50: 

60 if cs<>1 5580 then print " ***** data error *•■»•*": end 

70 rem sys 634 

80 end 

100: 

lOOOdata 76,138, 2,120,173,163, 2,133,144 

1010data173, 164, 2,133.145, 88, 96,120,165 

1020 data 145, 201, 2,240, 16, 141, 164, 2, 165 

1030data144, 141, 163, 2, 169, 165, 133, 144, 169 

1040data 2,133,145, 88, 96, 85,228,165,217 

1050data201, 13,208, 62,165,167,208, 58,173 

1060 data 254, 1,133,251,162, 0,134,253,189 

1070data 0, 2,168,201, 32,240, 15,230,253 

1080data165,253, 41, 3,133,254, 32,236, 2 

1090 data 198, 254, 16, 249, 232, 152, 208, 229, 165 

1100data251, 41, 15, 24,105,193,141, 0,128 

1110data165,251, 74, 74, 74, 74, 24,105,193 

1120datal41, 1,128.108,163, 2,152, 24,101 

1130data251, 133,251, 96 
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SAVE with Replace 

Exposed!! 



Charles H. Whittern 

Hudson, MI 




JTrfWSTJTta:/ 



Or, SAVE @ Your Own Risk! 



For years there has been unresolved controversy over the reliabil- 
ity of the Commodore "SAVE with Replace" (SAVE®) command. 
Warnings against its use have often appeared in print. Rumours 
first arose during the early days of the 4040 disk drive, and hcive 
continued with the 1541 drive. I became involved, not long after I 
got my 64, when one of my SpeedScript files was corrupted while 1 
was using "SAVE with Replace". To be safe, 1 began using 
SCRATCH before each SAVE. Although this required extra time 
and effort, i felt much more secure. 

A few months ago 1 became aware that two long-standing prizes 
were being offered to anyone who could show that SAVE @ was 
unreliable. One was a three-year old offer of a case of beer from 
Harry Broomhall of England. The other was a bottle of champagne 
from the Transactor magazine. 

About the same lime, 1 read a magazine column which emphati- 
cally proclaimed the soundness of ^'SAVE With Replace", and 
invoked the names of several well-known Commodore experts in 
its support. Since I had only experienced trouble once with 
"SAVE®", i decided to try using it again. 1 was putting together a 
disk of small to medium sized programs for our local computer 
dub. Many of them needed some touching up. so I began my work, 
merrily using the convenient "SAVE®". Late in the afternoon 1 
reLOADed one of these programs, but much to my surprise it 
wasn't there! It had been replaced by another program. On the 
directory everything looked tine. The program name and block 
count were O.K.. but the program was gone! 



I became somewhat miffed with the "experts' opinions, and deter- 
mined to unmask this program thief. The result is "SAVE® 
EXPOSED!!!", I have tested it on three different 64s. with four 
different 1541s (including the new lever-operated model) and on 
my SX-64 portable. It has demonstrated the improper replacement 
of disk files on every system so far. 

In order to meet the objections of the experts, before using 
■*SAVE@^\ one must be sure there is space on the disk for the 
program to be SAVEd, that no improperly closed files have been 
SCRATCHed, and that the drive number has been specified as in 
SAVE " ®0:PROGRAM NAME " .8. My test disks all had over 300 
blocks free. No improperly closed files had been SCRATCHed, and 
the correct syntax was used. 

"SAVE® EXPOSED!!!" selects randomly from five of the programs 
on the disk whose names have been placed in its data statements. 
Then using the 'Dynamic Keyboard Technique', it LOADs the 
selected program and immediately SAVEs it with replace. Another 
program is then LOADed and SAVEd with replace. The cycle 
continues until stopped by (he operator. Sometimes a faulty 
replace occurs in just one cycle. Often it takes longer. The LOAD- 
ing and SAVEing® shows on the screen as the program RUNs, On 
paper, ! make tally marks by each name as it comes on the screen 
for lOADing and SAVEing®. When each name has occurred at 
least five times 1 stop the program and examine the disk directory. 
Usually two or three of the programs will have been improperly 
replaced and one or two will have been lost. 
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Some Observations: 

1. The block count is not always ctianged. but usually changes 
when fhe replacement file is larger, and often even when it is 
smaller. "SAVE®'* is especially deceptive when the block count 
is not changed since there is no evidence of trouble on the disk 
directory. You are left to be rudely awakened later when you try 
to LOAD the victimized program. 

2. A replacement program which has been linked to the wrong 
name is usually one which had been recently LOADed. 

3. If '-SAVE® EXPOSEDIir' RUNs for a long lime, more of the 
programs are replaced by the same one, 

4. Disks which have not had any SCRATCHing done on them seem 
to be more immune to this bug. 

5. Only programs that have been LOADed and SAVEd® during 
the same session seem to be endangered. 

6. Sometimes a program is mixed with parts of another rather than 
being completely replaced. 

The debate is over. There is no longer any doubt about "SAVE®". 
It is unreliable. 1 suggest to the experts that they look again at 
"SAVE®" and some of the other related DOS routines for the bug 
that is causing trouble with the links used by "SAVE®". Good 
Hunting.,. 

To Use "SAVE® EXPOSED!!!" yourself, find or make up a test disk 
about half full of small to medium length programs, then do some 
SCRATCHing and SAVEing on it. Now type in "SAVE® EX- 
POSED!!!" and SAVE a copy of it to another disk for safekeeping. 
Then LIST the program and change the DATA in line 240 to the 
names of any five programs on your test disk. Next, SAVE your 
version of "SAVE® EXPOSED!!!" to your test disk. If you want to 
keep an uncorrupted backup copy of this test disk for study or 
comparison, make it now before RUNning *'SAVE® EXPOSED!!!", 

SAVE (^EXPOSED!!! 



HA 
MB 
ON 
KO 

HJ 

IL 
JD 
NH 
KA 
NN 
OJ 
GO 

fG 
00 

JE 



100 rem "save® exposed!!!" 

110 rem by c.h.whittern.box 215,hudson,mJch 49247 

1 20 cs$ = chr$(147): qt$ = chr${34) 
130d3$ = clir$(17) + chr$(17) + chr${17) 

: d4$ = d3$ + chr$(1 7) 
1 40 for i = 1 to 5: read a$(i): next 
150i = int(rnd(0)-5) + l 
160 print cs$ " load " qt$;a$(i):qt$ " .8 " 
1 70 print d4$ " save ^ qt$ " ®0: " a$(i);qt$ " ,8 " 
180j = int(rnd(0)*5) + 1:ift = jthen180 
190 print d3$ ^ load " qt$;a$0};qt$ " ,8 " 
200 print d4$ " save " qt$ - ®0: " a$(j);qt$ " ,8 ^ 
21 print d3$ " load " ql$ " save® exposed!!! " qt$ " ,8 
220 poke 631,19; for i=1 to 5: poke 631 +1,13: next 
230 poke 637,82' poke 638,1 1 7: poke 639, 1 3 

: poke 198,9: end 
240 data recover ram, check disk drive,quadra, 

performance test,disk log 



Get a scratcl^ pad and write down the names of the programs 
you placed into the data statements, along with their block 
counts. LOAD and RUN "save® exposed". Each time a 



program is LOADed and SAVEd with replace, make a tally by 
its name. When each of the five programs has been LOADed 
and SAVEd with replace at least five limes, stop the computer 
with the RUN-STOP key while it is LOADing a program. 

LOAD and LIST the directory. Check the block counts first. If 
they are wrong, you can be sure the program has been 
replaced by another. Then LOAD and LIST each of the five 
programs to discover exactly what mischief has been done! 

Editors Note: 

Although many will scoff at the statements made above, they have 
been tested and found to be true, at least on the 1541 and dual 
4040 drives. We didn't have a 2031 but it s hard to exclude it, being 
so closely related. Oddly enough it didn't upset the 8050 or 8250 at 
all- The original DOS source listings for the 8050 have comments 
that lead one to believe that the engineers did indeed look for a 
problem with SAVE @, but apparently nothing was changed- 

For our test purposes, 1 files were SAVEd to diskette, labelled PRG 
n through PRG *10. Initially, each had a hie size of 1 1 blocks, and 
each was written Co be easily idenhfied. The program ''SAVE® 
EXPOSED!!!" was then modified to include the 10 filenames, and 
this was SAVEd to diskette. From here, the program was fired up 
and allowed to RUN for about ten minutes. 

After ten minutes, BASIC AID was LOADed in, and with it each file 
was FUSTed (LlSTed directly from disk) to the screen. One file, 
PRG *2. was found to be posing as PRG *4. By FLlSTing PRG *4, it 
was found to be OK, Although PRG *2 shll had the same filename, 
it was now a true clone with no further semblance of its original 
identity. 

Though this was a form of proof, we decided it was time to get 

really mean. Without belabouring the point, some of the files were 
increased in size, then SAVEd @ back to disk. This insured that a 
good assortment of block counts were showing in the directory, 
and the sector distribution of the files would be good and mixed 
up. 

After 30 minutes of operation, the program was stopped and the 
results were tabulated. YECHH! Of the 10 files, 5 were corrupted 
badly, PRG "] became PRG *4. PRG *2 became PRG *7. PRG *4 
became PRG *5. PRG -7 became PRG *9. And PRG *9 became 
PRG *1. Of these, only PRG *4 had its directory links mixed up 
with another, PRG *5, The others, though still posing under the 
same file, were true clones. It seems we have a problem. 

At this time, one bottle of champagne should be winging its way to 
a certain mail box in Hudson, Michigan, We'll be informing Mr. 
Broomhall about this development, but wether his criteria have 
been met is not known. Our criteria was simply to prove a problem 
exists and that has obviously been shown. Although the program 
offered here demonstrates this quite clearly, the sequence of 
events leading up to its often unexpected occurence in day to day 
activity is still a mystery. And why does SAVE with replace seem to 
work on most occasions? A look through DOS ROM has shown 
that SAVE with replace is merely performing a SCRATCH after a 
SAVE followed by some very simple directory updates. Neverthe- 
less, there is no longer any doubt about the potential danger which 
means there must be something going unnoticed. We'll be taking 
another very careful examination of the code but we don't under- 
estimate this bug, probably the most elusive of them all. Perhaps 
those others who so adamantly claim the bug is a myth might care 
to join in our search for the answer to the next logical question: 
Why? (and that includes you. Commodore). 
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Disk Tricks 



Scott M acLean 
Georgetown, ONT 



The 1541 disk drive, contrary to popular belief, is a very 
inlelligent disk drive. Il can be told to go off and do sometfiing 
on lis own, and it will wfiirr happily away to itself, without any 
inJervenlion from the computer. This is contrary to an APPLE 
disk drive, where the computer is tied up when the disk is in 
use. This is because the 1541 isactualiy a computer, almost as 
smart as your 64! It has a 6502 CPU in it, I/O chips, ROM. and 
RAM. not to mention interfacing circuitry for the motors and 
read/write head. There is a way to directly write and read to 
and from the 154rs memory. This can be useful in controlling 
the disk drive without intervention from the 154rs parser, 
which is sort of like a syntax error checker. The way a user 
accesses this memory is through 2 commands: Memory Write 
(abbreviated M-W) and Memory Read (abbreviated M-R). The 
syntax for these commands is as below: 

print#1 5, ' m-w " ;ctir$[mem1o) ctirS(memhi};chr$(len);chr5(data);chr$(data) 

memlo. memhi: location in the disk drive memory to do the 

write, in lo-hi byte format 
len; number of bytes in data 

data: series of bytes to be loaded in starling at 

memlo,memhi. 

print*! 5. " m-r - ;chr$(memlo}:chr$(memhi);chr${len) 

You may send as many as 34 bytes of data at a time to the disk 
drive's memory. Only one byte may be received from the 
memory at a time. The memory location we will be concerned 
with today is $iCOO, or 7168 decimal. This location is one of 
the main control locations in the 1 541 . Its layout is as follows: 



Bit Value Use For $1C00 


7 


128 


* See below 


6 


64 


Density: high bit 


5 


32 


Density: owbit 


4 


16 


♦ See below 


3 


8 


Red drive light 


2 


4 


Drive motor contro 


1 


2 


Stepper motor: high bit 





1 


Stepper motor: low bit 



• Bits marked with a • won't be described here, 

6-5. Record/playback density: 

The tracks on a diskette are concentric, thereby making the 
inner tracks smaller than the outer tracks. To tell the disk drive, 
this location is adjusted when a track and sector is selected. It is 
adjusted as follows: 



Track 


5 6 


1-17 


1 1 


18-24 


1 


25-30 


1 


ol^Jo 






3. Red drive Ught: 

This bit controls whether the red light on the front of your drive 
is on or off. You can M-W this to turn on, but the 154rs 
interrupts will turn it back off, producing only a brief flicker. 
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2. Drive motor control: 

This bil turns the drive motor on and off. This location is not 
touched by the drive's interrupts, so you are free to turn it on 
and off at will. In order to move the head, a safety interlock 
ensures that the drive motor is enabled before, or else the head 
movement instruction is ignored. 

1 -0. Stepper motor control: 

The stepper motor is the motor which moves the head back 
and forth across the disk. It will remain inactive unless the 
drive motor is enabled (see bil 2). The stepper motor consists of 
4 internal coils, and a magnet mounted on a shaft. When the 
coils are sequenced on and off around in a circle, it drags the 
magnet arm around, which produces a very high accuracy 
movement. The movement is much too accurate to be used by 
the drive, so two movements is considered one track on the 
disk. Half tracking is achieved by moving only one movement, 
and writing in between tracks where most copiers don't look. 
Commodore could have doubled the 1 54 Ts capacity with this 
feature. . .but wait!! Before you rush off to double all your disks 
capacity, listen: The read write head is too wide. If you write to 
track 4.5. you will destroy track 4 and track 5, Similarly, if you 
write to track 7, you would destroy track 6.5 and 7.5. This 
motor is useful for other tricks, however. Try typing in the 
following program before proceeding furthur. 

lOopen 1,8,15 

20x = 

30 if peek(1 97) = 7 ttien x = x-1 

40 if peek(1 97) = 2 then x = x + 1 

50ifx = 4thenx = 

60ifx = -1 thenx = 3 

70pfinl#1."'m~w";chr$(0)chr$(28)chr$(1)chr$(4 + 96 + x) 

80 goto 30 

You may find it helpful to remove your drive cover before 
running this program, in case you make a mistake, in fact, I 
would recommend removing it so that you may get a better 
idea of what is going on (Editor's Note: This ivill void your 
Luarronty!), This is done by removing the 4 screws in the 
bottom of the drive, carefully flipping the drive over, and 
removing the cover. Then run the program. Press and hold 
down the CRSR UP/DOWN key for about a second and watch 
the read write head. Press and hold down the CRSR LEFT/ 
RIGHT key for about a second and watch. Try holding the UP/ 
DOWN key until the head clicks. This is what happens when 
you initialize a disk. Hold down the LEFT/RIGHT key until the 
head clicks. Release it IMMEDIATELY!! This is track 37. Return 
the head to about center with the UP/DOWN key. If the head 
won't move, give it a gentle push with your hnger. 



You may have a disk that you borrowed from your friend that 
doesn't ''agree" with your 1541. If the red light flashes rapidly 

while it loads, try the following program: 

10open1,8,15 

20 input ■■ <i>n or <o>ut of alignment " ;io$ 

30 print#1 / i ^ " m-r ' chr$(0)chr$(28): get#1 ,a$ 

:a = asc(a$ + chr$(0)) 
40v = (aand254):ifio$="o" thenv = (aor1) 
50 print#1 . " m-w^chr$(0)ch^${28)ch^$(1)chr${v) 
60close1: end 

This program moves your head up 1/2 track and ends, or if you 
select <l>n alignment, it resets the head to normal. 

If at any time you find you have trouble reading, writing, or 
accessing your drive, one of the following should have an 
effect: 

load " # ' ,8 
Open1.8,15,-i0'":dose1 

Or use the program above and select <l>n alignment. 

The 1541 disk drive is full ot goodies and tricks, only one of 
which we have tapped here. One note is the fact that if you 
move the head manually as we have here, the 154t's DOS 
(Disk Operating System) is unaware that you did so, and will 
as3ume that it is still where it started out. If it is at track 3, and 
you manually move it to track 30, then try to LOAD " $ ' ,8. it 
will try to move to track 18, and the head will jam, requiring 
you to open the disk up and reset the head. The safest way to 
exit is to execute the following line several times: 

open 1,8.15/ i0":ciose1 



Editor's Note 

Now that DOS Memory maps have been published for the 
4040, 1 54 1 , and 8050 (inside The Complete Commodore Inner 
Space Anthology, see back cover) it will be somewhat easier for 
us to examine other "disk tricks". Watch for more articles like 
this one in future Transactors. 
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DiskBusters! 



Michael Quigley 
Vancouver, BC 



Reuiews of some current disk copying packages 



Although The Transactor does not agree with the idea of "copy 
protectiof} uniockers'\ we can not ignore their existence either. Had 
Michael chosen to review a single package we would not have 
accepted it, however the comparison that follows is in the true 
Transactor tradition and we hope that any readers who might take 
offense to the undue publicity will also consider the fact that the 
information here will help the decided avoid yet another less than 
satisfactory package. - M.Ed. 

One of the biggest rackets facing Commodore 64 owners is an ever- 
increasing number of "disk copy" programs. Every month's issue of 
major magazines features large ads for utilities with claims like "Backs 
up virtually all existing disks for Commodore 64 including Copy 
Protected Software'; "The ultimate bit by bit disk duplicator", "No 
belter disk copier at any price", and ''Fastest and most advanced 
copier you can buy." 

In reality, these programs are part of a vicious circle highly reminis- 
cent of Biblical "begats". As soon as one method of breaking copy 
protection is introduced, a new protection system is quickly devel- 
oped by the software houses, which brings another generation of 
pirate programs, and on and on. The last year has seen, in many 
commercial programs, the demise of the familiar errors which cause 
the 1 54 1 to perform its unpleasant knock-knock noise as a method of 
disk protection. In their place have come half-tracking (moving the 
read head to a space between the extant 35 tracks), writing beyond 
track 35 (up to track 44), varying the number of sectors in a manner 
inconsistent with normal DOS functions, and the use of fast-load 
techniques. 

Many of the pirate pack programs try to justify their existence by 
claiming that a person has a right to back up their software, which I 
agree with. A person should also be able to modify their software to 
their own purposes, especially if it doesn't meet their expectations. 

However, some of these breaking packages are less than subtle about 
their real intentions- One of them. The Software Protection Hand- 
book, was originally to be called 'The Software Pirate's Handbook 11". 
The Authors try to justify this name by saying that the word "pirate" in 
the title was "intended as a light-hearted reference to any copyint^ 
process, and to inspire a certain tendency [slcj of humankind; the 
attraction to things mysterious or secret." 



What follows are reviews of a representative sample of disk-buster 
type programs. Not surprisingly, several other companies which 1 
contacted refused to send me their products. 

Dl-SECTOR 
Starpoint Software, Star Route, Gazelle, CA 96034. $39.95 

Di-Sector is a slickly designed program which is relatively easy to use. 
It comes in the form of a master disk from which you are allowed to 
make three copies. Each of these is encoded with your name and 
serial number. 



It features a 3-minute copy program, a quick format (around 16 
seconds), a public domain-style disk doctor and a machine language 
monitor with typical commands which additionally allows you to 
transfer code to and from the 154rs memory. 

Di-Sector also contains a bit copier, a file copier (which will read the 
file names from "invisible^' directories) and an error maker/checker. 
There is a Sector Editor, sort of like a Disk Doctor, which 1 found 
confusing because some characters in the sector did not appear on the 
screen. An "Arts Backup" creates un protect backups of Electronic Arts 
disks. 

About the only negative feature of Di-Sector is that youVe not allowed 
to return to the main menu from half of the program's six sub- 
sections or exit the program without turning off the computer. The 
company's ads are also in error when they claim that "None of our 
copy routines ever make [sic] the drive head 'kick'." Formatting a disk 
not only kicks the head, but does so several hmes faster than normal. 

Most parts of the program load In very quickly using special DOS 
techniques, and devices like printers should not be connected to the 
serial port, (Try disconnecting your printer after booting De-Sector for 
some unusual and very harmful noises,) 

The manual with Di-Seclor is not bad, though there are names 
referring to various parts of the program which do not tally with the 
names in the main menu. 

Di-Sector will not copy itself, nor will it copy recent programs which 
contain methods of protection other than errors. As such, its uses may 
be somewhat limited to legitimate purposes like copying and perform- 
ing various housekeeping tasks on your own disks, which it does 
extremely well. 



MASTER COPY 
Digital Wizardry, 3662A South 15th Street, Milwaukee, Wl 

53221. $19.95 

This is a home-grown kind of production which claims to be "the 
most effective, yet still the most inexpensive copy utility. . .for. , ,the 
64/' This claim is debatable, since virtually everything available in it 
is available in a public domain equivalent. 

The program is divided into 7 sections. One of these is a Disk Doctor 
which allows you to copy a block from one disk to another. It also 
allows you to scan back and forth within tracks — that is, it will jump 
from sector 1 to 2 to 3 and so on. Another section catalogs a disk, 
which just means reading the directory. And another copies a disk 
with a variant on the familiar 4-minule backup program, complete 
with head knocks at uncalled-for locations. If you want to format a 
disk, this can be done in 21 seconds. Errors 20, 21 , 22, 23, 27, 29 can 
be located and created. 
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Probably the least satisfactory part of the program is the one which 
copies sequential and program files. After you insert the disk you want 
to copy from, a prompt — "OUTPUT •" — appears on screen. There is 
nothing to tell you, without looking in the manual, that you are 
supposed to input either D for Disk or T for Tape (the latter an unusual 
touch)af this point. You can copya tola] of about HO blocks or 27K at 
a time (some public domain programs allow up to 51 K). and once you 
have copied certain files, you have (o scan through those file names in 
the directory on your subsequent passes through it before copying 
new ones. You cannot exit from this part of (he program to the main 
menu. 

Virtually all these utilities are available for nothing from user group 
libraries. About the only thing I found interesting about Master Copy 
was its method of protection which involved numerous errors and 
"secret passwords". As you might have guessed, you can't copy the 
disk with itself, 

PROGRAM PROTECTION MANUAL FOR THE C-64 
C.S,M. Software, P.O. Box 563, Crown Point, IN 46307, 

$29,95 plus $2 shipping. 

1 like this book, because it seems, unlike most computer literature, to 
be written by an intelligent person. This is not to say that it's free of 
grammatical errors or published in a slick format. It outlines methods 
of defeating various methods of protection and also tackles the ever- 
changing area of software law (U.S. variety, of course). 

The book is written in a clear, concise and easy-to-follow manner. I 
had little trouble employing some of its methods to change several 
older commercial programs so their errors would not be detected. 

The book comes with a disk of "public domain" software, including 
the Disk Doctor written by Canadian Don Lekei. The book's author, 
one T-N. Simstad. gets himself so entangled in various statements of 
liability that he describes this disk as "copyrighted". The disk, by the 
way, contains various features such as an invisible directory and other 
little challenges, all ofwhich can be explored with methods described 
in the book. 

Among these public domain programs are an early version of the 4- 
minute copy program (that sure gets around, does't it?) and another to 
determine if there are any errors on disks, both of which cause the 
1 541 to do its knock-knock routine, a major cause of drive failure. Is it 
no coincidence that C.S,M. Software also sells a 1541 disk alignment 
program for $39.95? 

C.S-M. also sells expansion boards to aid in cracking cartridges and 
publishes a monthly Program Protection Newsletter for $35.00 a year 
which details in each issue how to break 4 or 5 programs. 

Unfortunately, the kind of approach exemplified by this company is 
all too susceptible (o the "vicious circle''. Much of its information is 
already obsolete, though it may be of interest to people planning to 
protect their own programs. Or perhaps it will just discourage them 
from even bothering to write any. 



One of these is a further variant on the 4-'minute backup without the 
head-knocking at the beginning of a transfer. Another is something 
called Tough Nuts Utility, which allows you to break complicated new 
methods of protection like those varying the number of sectors per 
track in a manner inconsistent with DOS. In order to find out about 
Tough Nuts, however, you have to subscribe to a newsletter from 
Micro-W devoted to these methods, at an additional cost. 

The major part of the program consists of Super Clone and the original 
Clone Machine, the latter being a slower version of the former. Super 
Clone does have one good feature - a bit copier which, like most, 
takes an eternity, but it copies most normally-created disks, warts 
(errors) and all. 

Parts of the program leave a lot be be desired. The file copier, for 
example, lets you choose several files and then proceeds to copy them 
- one at a time! Although the program is supposed to be "self- 
documenting," there are sections which utilize the function keys for 
various purposes. There are no prompts for these on screen - you 
have to look them up in the manual. 

The manual itself is not bad, but suffers from a certain kind of 
disorganization caused by the complexity of the programs them- 
selves. The back of the manual contains several pages devoted to 
errors which may occuH 



The Software Protection Handbook 

PSIDAC, 7326 N. Atlantic, Portland, Oregon 97217. $19.95 

disic of programs $ 16.95, or both for $29.95 

According to its ads, this book will help you "blow the locks off 
protected software!". At the same lime, it claims it "does not condone 
piracy/' Sure. sure. . . On its second last page is an ad for "Software 
Pirates' T-shirt White Skull and Crossbones on jet-black Shirt." 

Co-authored by David Thorn and Vic Numbers (yes, that's correct), 
the book, for the most part, lives up to the first claim above. Methods 
on how to break inlo disk, tape and cartridge programs are all 
covered. The last hvo can be done with the help of hardware which 
PSIDAC will be glad to sell you at additional cost. There are numerous 
programs listed throughout the txjok for examining disks, checking 
for and creating errors, duplicating disks and individual files, creating 
auto-boots, and so forth. All these programs can be purchased on disk 
from PSIDAC, again for more money. (1 was not supplied with the 
disk). 

Probably the most interesting part of the book is its first chapter, 
which examines the legal aspects of copying software, and in doing so, 
gives new dimensions to the phrase "rambling discourse.'' It does 
have a few points which I agree with, such as the fact that most 
software is grossly overpriced. However, what is one to think of 
opinions like this when placed in the context of fuzzy thinking like the 
following passage: "Copying for sale, distribution or other non- 
personai uses is Piracy. . . , Loaning your original to another person 
for temporary use is not piracy. , . . However, copying an original you 
do not own is unethical." 



SUPER CLONE, also known as THE CLONE MACHINE 

Mlcro-W Distributing Inc., P,0. Box 113, 

Pompton Plains, N.J. 07444. $49.95 

This program, issued in a revised version in September 1 984. was one 
of the earliest copy utilities, h consists of three major sections. 



The book gives the appearance of being well-made with a plastic 
spiral-type binding and glossy cover. The typography inside leaves a 
great deal to be desired, however, using an IBM style of typewriter and 
listings from what seems to be a Commodore printer. The book is full 
of unbearable illiteracies on practically every page, ranging from 
three-letter words like "its" on up. 
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DOS File Executor 

Program and concept by Chris Johnsen, Clearbrook, BC 



Execute Machine Language programs inside your 1541 



Automatic Disk Drive Load and Execute 

There's a useful feature hidden in the 154rs ROM that Com- 
modore never told anyone about. Now that more disk drive 
mysteries are being revealed with books like "Inside Commo- 
dore DOS" from Datamosf Inc., and Transactor's "Complete 
Commodore Inner Space Anthology", we're learning how to 
get the most out of the drive's undocumented features. 

What we're talking about here is the automatic load and 
execute feature, accessed by simply sending the filename of a 
specially formatted USR tile to the drive's command channel. 
The filename must be prefixed with the characters "&:" (amper- 
sand, colon), both in the disk directory and the command sent 
to the drive. On receiving the magic word, the drive will load 
the machine code contained in the file into the specified RAM 
address and execute it. This feature (UTLODR — residing at 
$E7FF to $E852 in the ROM) was probably put there for drive 
ROM development purposes, to quickly boot up a new DOS 
version. In this article it will be referred to as the "DOS exec" 
routine, and the files it uses as "DOS exec files". The DOS exec 
capability apparently exists on 8050/8250 and new 2031 
drives as well as the 1 54 1 . 

This article explains the format of DOS exec files, and presents 
the program in Listing 1, "DOS exec filer" for the C64, which 
creates a DOS exec hie from a machine code object file, WeUl 
also be using the DOS exec technique to implement two short 
drive-executable routines: (1) to change the disk drive's device 
number to 9, and (2) to disable the horrid head-knock which 
occurs while LOADing some commercial protected software. 
These routines may be created from object form by "DOS exec 
tiler", or created directly from the short BASIC programs in 
Listings 4 and 5. 

Since the 154! contains a 6500-tamily CPU and the DOS 
allows for execution of user routines, the drive can be pro- 
grammed using 6502 machine code. The traditional way to 
execute routines within the drive is to use the memory-write 




(M-W) and memory-execute (M-E) commands or the block- 
execute (B-E) command, all of which are documented in the 
drive manual. Programming the drive using these commands 
usually requires a program to be run on the host computer, 
which means loading the program and disturbing any current 
program in memory. With the block-execute command, you 
have to know exactly which track and sector on the disk 
contains the machine code to be executed — not very conven- 
ient. Using the DOS exec method only involves sending a 
single command to the disk drive, which then gets all its 
instructions from a special DOS exec file on disk. 

When writing programs to be executed by the disk drive, there 
are a few things to keep in mind. The main constraints are the 
lack of RAM available and the volatility of that RAM. Fortu- 
nately, we can still use some pretty useful routines, since 
simply changing the contents of certain RAM locations can go a 
long way towards customizing the behaviour of the DOS. 
Listing 2 shows the machine language routine which changes 
the drive's device number to 9, and Listing 3 is the anti-knock 
remedy- These tiny weapons need only be executed once to 
have their intended effect, and are perfect candidates for DOS 
exec files. 
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Remember, once a DOS exec file is on disk, you just have to 
send the name of that file lo the drive command channel, and it 
gets loaded into drive memory and executed. As an example, if 
you create the "&:dev 9" file using the program in Listing 4, 
youll be able to change your drive's device number just by 
entering: 

open 15,8,15: print#15,"&:dev9" 
or simply "f3i&:dev9" using the DOS wedge 

You won't have to remember any special numbers or com- 
mands, and you won^t have to LOAD anything into your 
computer to disturb it. After realizing the tremendous power of 
this capability you'll probably want to create your own DOS 
exec files. ''DOS exec filer" in Listing I (explained later) will 
create DOS exec files for you, but an explanation of such a file's 
format follows to appease your curiosity- 
First of all, a DOS exec file is a USR file. All that means is that 
the format is user-defined and the file appears in the directory 
with USR next to it instead of SEQ or PRO. 

Assuming that you know about tracks and sectors, let's get 
right into the format of a DOS exec tile sector; a diagram 
appears below for clarification. The first two bytes, and 1 . are 
set automatically by DOS and point to the next track and sector 
(if any) as usual. After that we're on our own. Bytes 2 and 3 
must be set to the address in disk RAM — In low, high format — 
where the user machine language routine will load and exe- 
cute. Byte 4 contains the length of the machine language 
program on the current sector. The machine language program 
follows in the subsequent bytes on the sector, not going further 
than byte 254. After the ML program, there is a checksum byte, 
which would occupy byte 255 if the ML program filled the 
sector. The checksum byte must be supplied by the user, and 
represents the sum of bytes 2 through the end of the program 
on the sector. The low and high bytes of this sum are added to 
yield the checksum byte. This diagram should clarify the 
format. 



When OPENing the DOS exec file to initially create it, you have 
to use the drive number in the filename to ensure that the 
ampersand and colon get included, A valid DOS exec file OPEN 
would be: 

open 8,8,12, -0:&;fiiename,u.w'' 

As you can see, creating a DOS exec file involves quite a few 
steps: writing the load/execute address, the program length, 
copying the program itself, and calculating and writing the 
checksum at the end. And if the program is longer than 250 
bytes, all this must be done for each subsequent sector. 

You can save yourself all this work by using the BASIC program 
in Listing 1 , "DOS exec filer". With DOS exec filer, just write the 
machine language program for the drive to execute and put the 
object file on disk (the origin address is unimportant). DOS exec 
filer will ask the filename of the program and the start address 
in drive memory (after printing a table of available addresses), 
and create a DOS-executable USR file for you with a filename 
that you specify. Simple. After that, whenever you have the 
exec file in the drive, you've got instant access to your favorite 
drive utility. 

The examples used here, ''&:dev 9" and "&:anti-knock", are a 
good start to your disk drive exec file collection. Dev 9 comes in 
handy when you wish lo access two disk drives, and anti- 
knock can keep the poor ]54rs head from rattling itself out of 
alignment by hitting read errors. If you want either of these 
files, you can create them without typing in DOS exec filer — 
just use Listings 3 or 4 to create them directly. 

Now that this obscure disk drive feature has been publicized, 
we hope to generate a flurry of activity out there in hackerland. 
If anyone comes up with a good DOS exec file for the 1541, 
8050. 8250 or new 203 1 , send it in for the bits & pieces column. 
Maybe we can work the drive as hard as the computer for a 
change! 







1 



3 



end+l 



Track, Sector 
Links 



Low, High 
Address 



Length 



machine language routine 



checksum 



KG 



ML 
MF 

GK 

NB 
FK 

NK 
GJ 
HE 

CJ 



Listing 1: DOS exec filer for the C64 

10 rem * 1541 dos execute filer : 

-prlnt#1 5, "&:dos utility' 
20: 

30 rem ***** set up screen ♦♦♦♦♦ 
40gosub5010;printgr$;poke53280J1:poke5328L0 

:gosub2020 
50: 

60 rem '-*•* ml program read ♦♦*** 
70openl5,8,15.input#15,er$.em$,et$,es$ 

:pnnt#15, " u; "■ ;printd£ ---— -. 

80 input" name of program file IJHIliill " ;p$ 
90 ifp$ = " " thenprintu$u$u$:goto80 
100iflen(p$)>16thenprint" not more than 16 

characters " : printu$u$u$u$:golo80 
110pn$ = a$-f-p$4-b$ 



KA 
DM 

MD 

Jl 
JN 

IB 
CF 

JD 
EF 
EA 
JC 

PD 



1 20 print/^15, " iO: " openl ,8,3,pn$:close1 ;printu$i 

:gosub3010:open1,8,3,pn$ 
iSOget^l.ipS ip$ = ip$ + z$;[o = asc(ip$):get#l,ip$ 

;ip$= ip$ + z$:hi = asc(ip$) 
1 40 printd$ " finding length of m.L routine ' 
150ra = hi*256 + lo 

160printd$" computer ram address '';ra 
170printd$" reading byte i^ " 
1 80 nu =^ nu + 1 ;get#1 ,ip$:printtab(16)u$;nu; 

en = St and64:re = st and2 
190ilenthen210 
200ifnotrethen180 
210close1:gosub3010 
220 printu$ " " q$p$q$ " file contains ' ; 

nu;l$;" bytes ";d$ 
230 printd$d$ " press shift to continue " :wait653,1 

:gosub2020 
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EG 
CC 
ML 
PO 
OK 

DO 

DP 

HK 
GD 

Jl 

El 

EJ 
NK 

IB 
OL 

LE 

ED 

Nl 

ME 

BF 

BJ 

OM 

HP 

BA 
GP 

HB 
AA 
AC 
OB 

BM 
LC 
DK 
OP 
FP 
KJ 
KO 
JL 

MD 
GN 
DM 
KO 
AA 
GC 
CC 

El 

HB 

AA 

LK 

EH 

OB 

Al 
DJ 
LB 

IE 
KO 
AA 
BC 

Fl 
CH 
CM 
OE 




'■;e$ 



240: 

250 rem"** write usr execute file ***_^ 
260 print: input" name ot execute file 
270 ife$= ■ "thenprintu$u$u$:9oto260 
280 iflen(e$)>14thenprjnt'" not more than 14 

characters ' :printu$u$u$u$:goto260 
290 en$ = a$ + m$ + e$ + ur$:openl ,8,3,en$:close1 

:w = 9:gosub3010 
300 ifer$ = " 00 " thenprint ' sorry that file 

exists '':printu$u$u$u$.w = 0:goto260 
310 ifer$<> " 62 " thengosub3040 
320 print " dos ram address (768 - 2048} 
330 printdS" butter -768 $0300' 
340 print " buffer 1 - 1 024 $0400 ' 
350 print " buffer 2 - 1 280 $0500 ' 
360 print " buffer 3 - 1 536 $0600 " 
370 print " bam buffer - 1 792 $0700 " d$ 



;dm$ 




;v$ 



380 input " decimal address of exec file 
390 ifval(dm$)<768thienprintd$d$ " not lower 

than 768 '■;pfintu$u$u$u$u$:goto380 
400 ifval(dm$)>2048thenpnntd$dS" not higher 

than 2048 " :printu$u$u$u$u$.goto380 

405 en$ = a$ + anS + e$ + cS 
410open1.8,3,pn$ 
420open2,8,4,en$ 

430dm = val(dm$):hi = int{dm/256).lo = dm-hi"256 
440 bl = int(nu/250}:ef = nu-250*bl 
450 get#1 ,ip$:get#1 jp$:printd$d$ " writing 
byte* ■:ifbl = 0then510 

460 fort- ItobI 

470prinl#2,chr$(lo);:ip = io:gosub1020:print#2,chr${hi); 

:ip = hi;gosub1020 
480print#2,chr$(250};:fp = 250:gosub1020 
490forz = 1to250:gosub4010:nextz 
500print#2,chr$(ck);:ck = 0:nextt 
510prjnt#2,chr$(lo),;ip = lo:go3ub1020;print*2,chr${hi): 

:ip = hi;gosub1020 
520print#2,chr$(ef);:ip = ef;gosub1020 
530forz=1toef.gosub4010;nextz:print#2,chr$(ck); 
540 closel :close2.gosub301 
550gosub5070.printgr$:gosub3010 
560printd$d$'' usr file complete" 
570 print input" compile another file 
580 ifleft$(v$ J) - " y " thenclosel 5:run 
590iflett${v$J)= ■'n"thenpnnt#15/u/:close15 

:printcl$:end 
600 printu$u$u$:goto570 
610: 

620 — subroutines: 
630: 

1000 rem ***** checksum of block ♦♦♦♦* 
1 020 ck = ck -+- ip:ifck>255thenck = ck-255 
1 030 return 
1040: 

2000 rem ***** i\\\e ♦•♦** 
2020 pnntd$d$d$'' 1541 dos execute filer " 
2030 print" 

2040 printdnS " prinl#15. " q$ " &:dos exec" q$ 
2050 return 

2060: 

3000 rem ••* check error channel •*• 

3010 input#15,er$,em$,el$,es$ 

3020 iferS = " 00 " thenreturn 

3030 ifw = 9thenreturn 

3040pnnt#15/i0:" 

3050 pnntd$ " error " er$ " ' em$ " t " et$ " s - es$ 

3060 prinld$d$d$:close15:end 

3070: 

4000 rem**** read byte/wfite byte **•• 

4010get#1,ip$:ip = asc(ip$ + z$):gosub1020 



GO 
CD 
IK 
JG 
HP 
DG 

CH 

EF 
FF 

AO 
Fl 

EP 



4020by = by + 1:printtab{16)u$;by:print#2.chr${ip);:return 

4030 : 

5000 rem -**# declarations •••* 

5010u$ = chr$(145):l$ = chr$(157)q$-chr$(34) 

5015d$ = chr$(147):d$ = chr$(17):gr$ = chr$(30) 

5020z$-chr$(0):p$=":pn$=^^ e$=^^:en$- "" 

;ip$=""':dm$="":rn$="":er$='^ em$=^'^ 
5030et$=^':es$="":a$=-0:':an$="&;" 

:b$=",p,r-:c$=\u,w':r$= VO:":eq$="-" 
5040pq$= ■pR15.":ur$= ',u,r':m$= "??' 
5050ck = 0:nu = 0;ra = 0:hi = 0:lo = 0:bl = 0:w = 0:ef = 

:ip = 0:z = 0:t = 0:by^O:dm = 
5060 return 
5070 u$ = chr$(145):Gl$ = chr$(147):d$ = chr$(1 7) 

:9r$ = chr$(30) 
5080 return 



Listing 2: Assembler code for ■'dev9"' 1541 disk drive program 
;.*** DEVICE 9*** 



LDA #$29 
STA $77 
LDA #$49 
STA $78 
RTS 



device number $09 plus $20 
LSNADR - listener address 
device number $09 plus $40 
TLKADR " talker address 
end. 



Listing 3: Anti-knock 1541 program to stop head knocks 



** 



• ANTI-KNOCK*** 



LDA #$C5 
STA $6A 
RTS 



set bits 0, 2.6, and 7 
REVCNT - error recovery count 
end. 



Listing 4: BASIC program to create " &:dev 9 ' DOS exec file 



10 rem device 9 dos exec file-run this. 
20 rem then to set drive to device 9: 
30 rem openi .8,1 5:pnnt#1 , " &:dev 9 " 
40: 

50 open 8,8,12, "0:&:dev O.u.w" 
60 fori = 1to13:reada:print#6,chr$(a);;next;closeS 
90: 

100 data 0,3,9, 169,41, 133, 119, 169,73, 133, 
120,96,45 



Listing 5: Used to create " &:anli-knock " file 



1 rem anti-knock exec file -run this, 

20 rem then to disable head knock: 

30remopen1,8,15:print#1,''&:anti"knock" 

40: 

50 open 8,8,12, '0:8. anti-knock,u,w'' 

60 tofi = 1to9;reada;print#8,chr${a);:nexl;close 8 

90: 

100data0,3,5, 169, 197, 133, 106,96, 199 
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Alphabetize Your 
Disk Directory 



Stacy Mclnnis 
Upland, CA 



Here is a useful utility for your software tool box. Eventually 
your disk will become filled and it will seem like a good idea to 
remove some of your no longer needed files. At other times you 
can not remember the name of a file but you are sure you 
would recognize the name if you saw it. Possibly you would like 
the entries in your disk directory to correspond to those in your 
file cabinet. When any of these times come you may feel your 
task would be a lot easier if your directory list were in alphabeti- 
cal order. Alpha is a program for the Commodore 64 and Plus/ 
4 that will alphabetize the directory list in memory. 

To use Alpha. . . 

Type in the BASIC program "Alpha" and RUN it. The BASIC 
program POKES the machine language program Alpha into 
memory starting at location 30000 and ending at location 
30263. Alpha also uses locations 29520 to 29994 for temporary 
storage. 

Now that you have Alpha in place, load your directory as you 
normally would: 

LOAD $ ,8 

To perform the alphabetization, type: 

SYS 30000 

A somewhat typical directory of 20 entries will alphabetize 
instantaneously. A directory of 144 entries and many similar 
names takes about 15 seconds. When you see READY on the 
screen with the blinking cursor your alphabetization is com- 
plete. Now LIST your directory and you will find that all the 
entries are in alphabetical order. 

How Alphabetization Is Petformed 

When your directory is loaded it is stored in memory in a set 
format at the start of BASIC text. The start of BASIC text is not 
the same for the PIus/4 and the 64. However,the address of the 
start of BASIC text for both machines is stored in locations 43 
and 44. Alpha looks at the file name within each directory 
entry. If any two consecutive file names are not in alphabetical 
order, their directory entries are exchanged. Alpha repeats this 
exchange operation until all entries are alphabetized. The 
alphabetizing is performed on the directory list as it appears in 
memory. Alpha in no way alters the directory as it appears on 
the disk or the order of the files on the disk. 



Listing 1: BASIC loader for the alphabetize program 



AN 

LI 
KA 
DH 
GK 

Al 

II 

AF 

IN 

EE 

MC 

!A 
NH 

LI 

BE 

BJ 

LF 

JD 

JG 

OJ 

BG 

CC 

PE 

HE 

AH 

OJ 

FA 

BE 

LB 

HH 

JP 

FC 

CI 

PI 
HH 
HA 
GO 
PM 
EB 
AO 
ND 
FD 



10 rem* data loader for "Alpha" • 
20 cs = 

30 for i = 30000 to 30262:read a: poke i,a 
40cs = cs-Fa:next i 
50: 

60 ifcs<>29860 then print"***** data error 

end 



***** 



3, 
16, 
43, 
43. 



70 print" sys 30000 
80 end 
100: 

1 000 data 1 60, 
1010 data 136, 
1020 data 177, 
1030 data 177, 
1040 data 4,177, 
1050 data 192, 8, 
1060 data 11 5, 152, 
1070 data 232, 24, 
1080 data 157, 8, 
1090 data 4.157, 
11 00 data 84,115, 
1110 data 0, 141, 
1120data115,172, 
1130 data 189, 8, 
1140 data 189. 153, 
1150 data 189, 9, 
1160 data 189, 154, 
1170 data 3,209, 
11 80 data 238, 117, 
1190 data 195, 238, 
1200 data 15,208, 
1210data115,202, 
1220 data 140, 117, 
1230 data 3, 0, 
1240 data 11 5, 189, 
1250 data 157, 87, 
1260 data 8,116, 
1270 data 4, 189, 
1280 data 116, 133, 
1290 data 232, 115. 
1300 data 31, 177, 
1310 data 208, 247, 
1320 data 5,136, 



to sort directory" 



185. 3, 
247.160. 
133, 3, 
133, 4. 
3,201, 
240, 35. 
157, 87, 
165. 3, 
116,165, 
153, 116, 
201, 2, 

85, 115, 

86, 115. 
116, 125, 
116, 105, 
116,125, 
116, 105, 

5, 240, 
206, 85, 

86, 115, 
190,238, 
236, 85, 
160, 3, 
136, 16, 

87,115, 

115, 152, 

133, 3, 

9,116, 

6, 160, 
136,192. 

5, 145, 
160, 31, 
192, 1, 



0, 153, 

0,140, 

141, 8, 

141,153, 

34, 240, 

208, 243, 

115,238, 

105, 32, 

4,105, 

76, 79. 

1 76, 1 , 

169, 1, 

174, 85, 

87, 115, 

0, 133, 

88, 115, 
0,133, 

12, 144, 
115, 48, 
172, 86, 

85, 115, 
115,240, 
185, 80, 
247, 96, 
168, 189, 
157, 88, 
189,153, 
133, 5, 

31,177, 

1 . 208, 
3,136, 

185,232. 
208, 246, 



80,115 

84, 115 

116,200 

116, 160 
7,200 

174, 84 

84,115 

133. 3 

0,133 

117, 173 
96, 169 

141, 86 
115, 24 



133, 

4, 
133, 



3 

24 

5 



6.177 

20. 32 

192. 16 

115,192 

174, 84 

3, 76 

115,153 

174, 85 

88,115 

115,189 

116, 133 

189, 154 

3, 153 

246, 160 

192, 1 

115, 145 

96 
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Listins 2: The PAL source code 


BC 


720 Idy #3 








3ys700 ;assembled on'^PAL 64" 


IM 
01 


730 Isav Ida adz1,y ;save contents of 
740 sta zsav,y ;of 3,4,5,6 in zsav 




FK 


100 1 




HO 


110 . 


optn 


JK 


750 dey 




JL 


120 : 


;a!pha by stacy mcinnis 


NO 


760 bpl Isav ;loop until all saved 




PN 


130 


;alpha produces an alphabetized image of 


JO 


770 i 




BA 


140 


;the disk directory that was oaded into 


KB 


780 ;tilt array adentl with the ow byte 




PL 


150 . 


■Tho--nmpiitor alphq in qri Wriy ^^^^^c 


IB 


790 ;oftheaddressof the entry in 




KE 


160 


;the di5ik dirRrtnry that is stored 


PD 


800 ;in the directory. 




LG 
HE 


170 ; 
180 


;on disk. 


AE 
GD 


810 ;fill array adenth with the high byte 
820 ;of the address of the entry in 








PM 


190 


;to use alpha: 


EH 


830 ;the directory. 




01 


200 


; 1 , load the alpha program 


ME 


840 ;settoient to the total number of 




JO 


210 


; load "apha ",8,1 


KF 


850 ;entnes in the directory. 




HI 


220 : 


; 2. load the disk directory 


DE 


860 ; 




JG 


230 . 


load "$".8 


JH 


870 Idy #0 ; 


initialize the count of the 




MF 


240 


; 3, sys to alpha to alphabetize 


DB 


880 sty tolent ; 


number of directory entries 




GP 


250 


; sys 30000 


FN 


890 Ida (dir),y ; 


low byte of the beginning 




GH 


260 : 


; 4, now list or print your directory 


LA 


900 sta adz! ; 


of the first directory entry 




GP 


270 : 


; as you normally would 


00 


910 sta adentl ; 


save entry address 




GF 


280 . 




IH 


920 iny 






BB 


290 


; data definitions 


CL 


930 Ida (dir[),y ; 


high byte of the beginning 




KG 


300 




HD 


940 sta adz2 ; 


of the first directory entry 






JG 


310 i 


adz1 = $03 ;£ero page locations 


OA 


950 sta adenth ; 


save entry address 




JE 


320 , 


ad22 = $04 ;for indirect addressing 


LD 


960 Ic Idy #4 ; 


scan for " that begins 




Bl 


330 , 


adz3 = $05 ;zero page locations 


CH 


970 He Ida (adz1),y; 


the filename 




BG 


340 . 


adz4 = $06 ;for indirect addressing 


FG 


980 cmp #$22 ; 


$22 is a " 






1 

350 . 


dirl = $2b ;low byte of address of 


PI 


990 beq setpt ; 


branch if have a $22 




IC 


, 360 


;beginning of directory list 


JN 


1 000 iny ; 


search on for a $22 




JN 


370 . 


dirh = S2c jhigh byte of address of 


GL 


1010 cpy #8 ; 


if not in 8 are finished 




MD 


380 


;beginning of directory list 


MO 


1 020 beq outlpc ;is not a filename 




PC 


390 


• = $7350 ;decima 29520 


FD 


1030 bne fic 




DP 


400 . 


zsav .byt ;save contents of 


BC 


1 10403etpt dx tolent ^entry in table 




DB 


410 


byt ;zero page locations that are 


BN 


1 050 lya 




. IH 


420 


.byt ;used in indirect addressing. 


DJ 


1060 sta offset,x ;save offset to name 




OG 


430 


. byt ;these are restored at 


HP 


1 070 inc tolent ;counl entries 




AL 


440 


iprogram completion 


AA 


1080 inx ;entry index 




EC 


450 


tolent .byt ;count of file names 


AM 


1090 cfc ;increment pointer to names 




KB 


460 


;in directory 


BD 


1 100 Ida adzl ;in directory 




PB 


470 


dirent .byt iontry in direcTory entry 


NB 


1110 adc #$20 ;dfstance between names 


] 


PD 


480 


;address ist being considered 


BK 


1120 sta adzl 


' 


KA 


490 testch ,byt0 pointer to character 


AP 


1 1 30 sla adent ,x ;save entry address 


' 


K 


500 


;in name being considered 


LH 


1140 Ida adz2 




IG 


510 


offset = • ;filename offset from 


LF 


1150 adc #0 




KF 


520 


;beginning of directory entry 


MM 


1160 sta adz2 




MK 


530 


= ^ + 145 


AB 


1 170 sta adenth,xsave entry address 




KG 


540 


savnam = • ;area to save the directory 


AN 


1180 jmp Ic 


;Joop until all addresses stored 




GB 


550 


• = * + 32 ;entry in while it is 


KM 


1190outpc Ida tolent 


;theremust beat 




DM 


560 


;being exchanged 


FD 


1200 cmp #2 


;1east two entries in order 




DE 


570 


adentl = * ;low byte of address of 


LN 


1210 bcs n 


;to alphabetize 




EO 


580 


• = ' + 145 ;directory entry 


BD 


1220 rts ;if not return 




L 


590 


adenth = • :high byte of address of 


FL 


H --ion. 


1 ^JU, 




IP 


600 


* = •4-145 ;directory entry 


PC 


1 240;compare each entry with the entry 




JE 


610 




BC 


1250;fo owing it l (j 






EB 


620 


;entry for a phabetizing 


CC 


1260;if the entries are in a phabetical \ yJ^ 




CH 


630 


; sys 30000 


LJ 


1270iorder go on to test next entry. ^ M 




HG 


640 




LI 


1280;if the entries are not in a phabetical V 




01 


650 


* = $7530 


DE 


1290;order exchange them in the directory n u^ V 




LH 


660 




MM 


1300;list and restart a phabetizing \c^ Jy 






GF 


670 


;save locations 3,4,5,6. restore 


GH 


1310;with the preceeding entry \ V 




JM 


680 


; these locations at completion of 


LL 


H oon, \ \ 1 


1 JtiU. — — \ ^ 




BD 


690 


^program, these are used for 


MM 


1 330;begin loop with first character 




NL 


700 


;indirect addressing. 


LC 


1340;first directory entry 




K\U 


-71 n 




JN 


I'^SO- 


_ 


IN lA 1 / 1 w 
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El 


136011 Ida #0 ; point to first 


H 


2000 


tya 






GK 


1370 sta dirent ;enlrytolest 


EA 


2010 


sta 


offset-+-1,x 




HP 
lA 


-toon. 


Jl 


2020 
2030 


Ida 
sta 


adent ,x ;move entry address 
adzl ,to zero page 




1 1390;begJn oop with first character 




LA 
OC 


H Af\r\. 


IP 


2040 
2050 


Ida 
sta 


adenth,x 
adz2 




1 H\/\J, 

1 41 012 Ida #1 ; point to first character 


1 1 

HE 




HG 


1420 sta testch ;to alphabetize by 


PO 


2060 


Ida 


adenti + fentry to raise 




JC 
GG 


1410' 


PF 
KN 


2070 
2080 


sta 
Ida 


adz3 
adenth -+- 1 .x 




1440;begin oop with character and 




MF 


1450;directory entry incrementing 


HH 


2090 


sta 


adz4 




HE 
KB 


H AC^n. 


EJ 
CI 


2100 Idy 
2110;exchange 


#31 ;index tor character 




147013 Idy testch ;index for character 




LJ 


1 480 Idx dirent ;point to address of name 


DB 


2120fpsav 


da 


(adzl).y ;get first name 




IE 


1490 cic 


PB 


2130 


sta 


savnam,^andsave 




PE 


1500 Ida adentUiadd offset to 


HB 


2140 


dey 






GA 


1510 adc offset.x ;beginning of entry 


FM 


2150 


cpy 


#1 




NN 


1 520 sta adzl ;to point to 


BD 


2160 


bne 


psav 




JO 


1 530 Ida adenth.x;file name 


OF 


2170 


Idy 


#31 




BO 


1540 adc #0 


HP 


2180fpmv1 


Ida 


(adz3).y ;move 2nd name 




CE 


1550 sta adz2 ;file name 


AM 


2190 


sta 


(adz1),y ;to first name position 




IK 


1560 cIc ;add offset to beginning of 


DF 


2200 


dey 






CK 


1570 Ida adentl + 1,x ;entry topointto 


BA 


2210 


cpy 


#1 




ON 


1580 adc offset+1,x ;fiename 


Kl 


2220 


bne 


pmvl 




PH 


1590 sta adz3 


BD 


2230 


Idy 


#31 ;moved saved name to 




KP 


1600 Ida adenth + 1,x 


EF 


2240fpmv2 


Ida 


savnam.i^nd name position 




HC 


1610 adc #0 


LL 


2250 


sta 


(adz3),y 




BK 


1620 sta adz4 


PI 


2260 


dey 






LA 


1630 Ida (adz1),y ;charactersto 


ND 


2270 


cpy 


#1 




OB 


1 640 cmp (adz3),y ;compare 


HM 


2280 


bne 


pmv2 




JC 


1650 beq nomov ;same character 


ON 


2290 


rts 






HA 
CA 


1660 bcc next ;branch if already in order 
1670 jsr change ;ese go interchange 


IN 


2300. end 












PH 


1680 dec dirent ;pointtopreceeding 










NK 


1690;to test it must also 










PJ 


1 700,exchange preceeding pair 










EP 


1710 bmi 11 


;il minus start at beginning 










EJ 


1720 bpl 12 


;start with preceeding 










ND 


1 730nomov inc testch 


;preceeding characters ok 










LC 


1740 Idy testch , 


;now compare next character 










BJ 


1750 cpy #15 


;only 1 6 characters in 










NF 


1760 bne 13 


;name{0-15) 










PJ 


1 770next inc dirent 


; point to next entry 










AM 


1780 Idx tolent 


;lo alphabetize 










GD 


1 790 dex 


;to ent begins count at 1 










EL 


: 1800 cpx dirent 










JN 


1810 beq endlis ;out if all finished 










KM 


1 820 jmp 2 igo to compare with next entry 










80 


1830endlis Idy #3 ;restore saved zero 










GK 

1 


1840lres Ida zsav.y ipage contents 










JF 


1850 sta adzl.y 










PR 


1860 dey 










NP 


1870 bpl Ires 










HK 


1880 rts ; alphabetization iscomplete 










JB 


1 890;have reached the end of 










MC 


1 900;list so return to basic 










NF 


1 r\H n. 








1 ^ 1 u^- 




PH 


1920;enterna routine to exchange 










IC 


1930;two directory names 










LH 


Hrt^rt. 








1 JtU, ' 




A 


1950change Idx dirent ;entry to lower 


■ 








FH 


1960 Ida offset.x ;exchange offsets 










81 


1970 tay 










IK 


1980 Ida offset +1,x 










GD 


1990 sta offset,x 
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Auto Default 

For The Commodore 64 



Tony Doty 
Sandy, UT 



With its declining prices and more sophisticated software, 
many one-time VIC-20 owners are changing to the Commo- 
dore 64. Sprites and 64k of RAM make the 64 one of the most 
popular personal computers on today's market. The 40 column 
screen adds to the professionalism of this work-horse. How- 
ever, one is left with the opinion that Commodore overlooked 
two very important items during the transition between the 
machines. These are the default screen colours and the choice 
of the cassette as the primary program storage device. 

The most notorious transition between the VlC-20 and the 
Commodore 64 is the new screen colours for the 64. The light 
blue characters on dark blue background scheme that Commo- 
dore chose for the 64 lacks the needed contrast between the 
background and characters for long hours of programming- In 
fact, with the introduction of Commodore's portable 64, the SX- 
64, and its five-inch colour monitor, the staff at Commodore 
must have recognized this problem. The default of the SX-64 
video screen (blue characters on a white background), dramati- 
cally improved the video images displayed on the five inch 
colour monitor. The biggest disappointment with the changes 
to the SX-64 ROM was the fact that after all the time and 
expense Commodore went through to engineer the changes, 
the SX-64 reflects only a partial upgrade of the ROfVl over its 
predecessor. A new power up message and screen colours were 
included, but the default to the disk drive was not implemented 
(even though there is no provision for a cassette unit on the SX- 
64), though these changes could have been easily added. 

After working with the V1C'20 and the Commodore 64, one 
starts to believe that Commodore used virtually the same 
operating system for both machines. The most immediate draw 
back of this decision is apparent in the choice of LOAD and 
SAVE default devices. Using the cassette as the default device 
was understandable with the VIC-20. The software writers 
seemed to target their wares toward the 3.5k unexpanded 
version of the VIC with a cassette. With the 3.5k of user 
memory, the LOAD time for programs was not a critical factor 
when compared to the cost of the disk drive. With the place- 
ment of the 64 in a market where more and more of its primary 
software is offered on floppy disk format, it seems only fitting 
that the LOAD and SAVE device defaults to the disk drive. 



Making The Changes 

I was quite dismayed with these two aspects of the Commodore 
64. It wasn't long before investigation of the machine's internal 
code was my top priority. A method of setting things right had 
to be found. The areas I wanted to change were (1) The screen 
colours that the 64 powered up with (to dark blue characters on 
a white background), and (2) Set the I/O default device to 8. 
The programs provided in this article are the result of the tests 
required to ensure that the change would execute without 
problems on the computer. 



Hardware or Software 

For those who. like myself, feel that these changes should be 
made a permanent part of the operating system, I submit a list 
of the memory locations that were changed for the final 
hardware EPROM version. 



Address Old New Effect 

$E1DA $01 $08 Set Default Device To Disk Drive 

$E535 SOD $06 Set Character Colour To Dark Blue 

$ECDA $06 $01 Set Background Colour To White 



Also changed was the "LOAD/RUN' message displayed when 
the shifted RUN/STOP is pressed. The finished version will 
LOAD " * " and RUN the first program on disk when the shifted 
RUN/STOP key is pressed. Also included in the changes was 
the addition of my name in the power up message denoting my 
ownership of the system. Several other recommended changes 
have been published in various articles which could also be 
implemented. The 8k by 8 Bit device used for the hardware 
version listed here is the MCM 68764 C. The MCM 68764 C was 
purchased from a local Hamilton Avnet distributor for under 
$20.00, The new EPROM will replace the chip '901227-02 in 
the 64.( Editors Note; The chip specified is available in Canada 
for $34.50 as priced through Future Electronics - try the C2764- 
30 28 pin chip ($1 3.50 Cdn.) with a 28 to 24 pin adapter socket 
if you can find one) 
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A hardware change!! For many owners the thought of opening 
their compiiler and changing the chips is a horrifying ordeal to 
reckon with. Others may lack the needed equipment or knowl- 
edge to make the hardware changes. Thus, the purpose of the 
software program "AutO'Defauit". When loaded, the program 
will execute, change the default screen colours and device *, 
then reset the machine. The changes will remain a part of the 
operating system until a hardware reset is activated. 



The Auto- Default Program 

The Auto-Default program was derived from the desire to make 
the operating system of the Commodore 64 interface belter 
with outside peripheral devices. Once the program is in place 
in memory, the user will find that the LOAD and SAVE 
commands are geared toward the disk drive. The 64 will now 
default to the disk drive when a device is not specified. To 
LOAD the directory, a LOAD'S" with a (return) is all that will be 
needed. To SAVE a program, type SAVE'name" then (return). 
The use of the cassette unit will still be supported by the Auto- 
Default program, although the user will now have to use a 
device number of one for tape LOADs and SAVEs. In addition 
to the LOAD and SAVE changes, the new screen colours and 
white background with blue characters should enhance the 
video images. Different colours or default device number can 
be altered by changing the values listed in the program. 



BASIC vs. Machine Language 

The Auto-^Default program reflects the advantages of learning 
and using machine language routines to speed up the execu- 
tion of programs. If written in BASIC, the two major FOR/NEXT 
loops used to move the 16864 bytes of ROM into RAM would 
have exceeded 1 minute and 20 seconds to execute. The 
excessive amount of time to execute such a utility program 
would have overshadowed its usefulness, making it impractical 
to use each time the computer was turned on. Compare this 
with the time of 10 seconds it will take to LOAD and execute 
the machine language version of Auto-Default. The advantages 
are overwhelming. For those who are new to machine lan- 
guage programming, it is advisable to type in the Auto-Default 
program from its BASIC listing to help you better understand 
the logic of Ihis program in respect to the machine language 
source listing provided. 



Designing The Program 

When writing a program such as this, there are several ques- 
tions the programmer must ask. First, where in memory would 
the program best fit and interfere the least? The answer this 
time was found in the memory from $0200-$025B. The 88 
bytes of RAM located here are called the "system input buffer". 
No conflicts with the operating system were encountered here. 



The second question, how to make the program as user 
friendly as possible. What does user friendly mean? To most, 
the term is one of many sales pitches given each time they want 
to know if a piece of software or hardware is difficult to operate. 
To the Auto-Default program, user friendly means no SYS calls 
to remember, no RUN to type, and no instruction book to 
memorize. To accomplish all of the above criteria, the program 
must be able to take control of the system, make the necessary 
changes, and return the control of the system to normal 
operation without the need of excessive user intervention. This 
was managed in the Auto-Default program with the help of the 
'auto start' method of executing the program. 



Using The Auto Start 

What comes to mind when an auto start program is referred to? 
For most, their thoughts render a cartridge that is plugged into 
the back of the computer that holds a favourite game or utility 
program. This method of starting programs using a ROM 
cartridge is very effective, but due to the cost of EPROM 
burners, printed circuit boards, and EPROMS, this method is 
out of reach of most home computer enthusiasts. 

However, there is a second method of creating an "auto-start" 
program, using only software and altering the return address of 
the LOAD routine. To understand the principles of the 'auto- 
start', first we must examine the LOAD statement, and its 
machine language routines. When the statement 

L0AD''AUT0-DEFAULT",8,1 

is entered, the operating system must interpret the statement, 
set the parameters, and execute the routine associated with the 
BASIC statement (if the statement is entered with the correct 
syntax). An address to the machine language routine which is 
the starting point of the BASIC LOAD statement is loaded from 
a table of BASIC commands at $AOOC. To access the LOAD 
routines at SE168, aJSR (Jump Save Return or more commonly 
called Jump to SubRoutine) will be used to call the machine 
language routine. The JSR will take the contents of the program 
counter, add 2 to the count, and store the sum of the addition 
on the 'stack* for later use. The following two bytes after the JSR 
are loaded into the program counter, and program execution 
continues at this new address. At the completion of the LOAD, 
an RTS (ReTurn from Subroutine) will be encountered. This 
instructs the processor to pull the first two bytes off the stack, 
(remember that JSR stored them), and return to that address. 
Next, the program counter is adjusted to reflect the next byte of 
the program by adding 1 to the return address. The 6510 uses 
this address to continue processing the program- 

With that information, it's time to make an auto run routine. 
The program will be loaded; L0AD"AUT0-DEFAULT^8.1 (re^ 
turn). The return address will be stored by the JSR onto the 
stack. The program will start loading at $0101, and as such will 
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overwrite the stack. At the end of the LOAD routine, the RTS 
will pull the next two bytes off the stack, now set at $02, add 1 
to the address, then load the sum into the program counter. 
The program will resume processing at the address $0203. 
which marks the beginning of the Auto-Default program in 
memory. 



The 6510 Processor 

The heart of the Auto-Default program centers around the 
copying of the BASIC ROMs into RAM which is located under 
their resident addresses. RAM under ROM, how can this be? 
Due to the design of the 6510 processor (and its onboard 8 Bit 
I/O port), more than the standard 65535 bytes of memory can 
be accessed by the processor. By switching blocks of memory 
in and out. the 64 can control the 64k RAM plus 20k of ROM 
used in its operating system. The onboard I/O port of the 6510 
is controlled by the eight bits of memory in location SOL Bits 
0,1,2 control the internal memory and determine if RAM or 
ROM will appear in a given location. Bits 3.4,5 are assigned the 
task of controlling the cassette unit. Bit 3 controls the cassette 
write line, bit 4 the cassette sense switch (senses if the play key 
is pressed), and bit 5 the cassette motor control line- At this 
time the bits 6 and 7 are not used by the operating system, 
leaving them vacant for future use. The chart in Figure *1 will 
illustrate the changes that occur in the 64's memory when the 
I/O port is reconfigured by the first three bits of location $01 . 



Figure 1: C64 Location $01, Bits 0-2 

Bit Status Comments 

Set 1 ROM Memory $AOO0-$BFFF (BASIC ROM) 

Clear RAM Memory $A000-$BFFF 

1 Set 1 ROM Memory $EO0O-$FFFF (Kernal ROM) 

1 Clear RAM Memory $AOOO-BFFF 

RAM Mem $EOOO-^$FFFF (No Operating System) 

2 Set 1 I/O Devices Appear in Processor Area 

2 Clear Character ROM Appears in Processor Area 



Problems, Problems, Problems 

Two unexpected problems were encountered in the testing of 
the software. Both were overcome, but 1 feel they are worth 
mentioning. Much to my amazement, the first time the pro- 
gram was powered up, the BASIC bytes had increased from 
3891 1 to well over 51000. This was due to the routine that sets 
the top of BASIC memory finding RAM at the address of $A000. 
instead of the usual ROM, To correct the amount of memory 
that BASIC can use, the machine code at $FD88-$FD8B was 
changed to LDX *$A0 and LDY *$00 to force the top oi the 
BASIC memory to $AO00. This change was necessary to keep 
BASIC from storing its variables in the RAM above $A000 and 
overwriting the modified BASIC operating system now in RAM. 



In past, the only method used to change the screen colours and 
device default was to POKE in the new values into the corres- 
ponding memory locations, only to run the risk of losing 
everything due to a RUN/STOP RESTORE. The correction of 
this problem was the factor that made this utility program truly 
useful. When the reset routine is called at location $FCE2. a 
second subroutine is called to set the I/O default values for the 
65i0 I/O port. This routine sets the system to read the ROM 
that is located in the memory of SAOOO-$BFFF and also SEOOO- 
SFFFF By changing the contents of $FDD6 to $E5 ( 1 IIOOIOI 
binary ), the system, upon a reset call, will use the new memory 
that has been switched in (refer to the chart in Figure *l for 
further explanation). $AO00-BFFF and $EOOO'$FFFF as the 
operating system, keeping our defaults intact! 



Understanding The Program 

The program file writer does just what the name implies. It 
writes a program file to the diskette which the 64 can directly 
LOAD and execute. What denotes a program file? When the 
DOS (Disk Operating System) is instructed to write a program 

file, by the statement OPEN 5,8,5/'NAME,P,W" or OPEN 
5,8,1/'NAME", the first two bytes that are sent to the disk drive 
will be the address, in low byte/high byte order, of the starting 
point in the 64's memory the program will be located. Lines 
120 and 130 OPEN the file and send this address to the disk. 
Next, line 140 sends the disk 258 $02's that, when loaded by 
the program file, will overwrite the stack in.suring the return 
address of $0203 at the end of LOAD. This will be the start 
address of the Auto-Default program. Line 150 READs the data 
statements and sends the program data to the disk. This is the 
actual program that will be located at $0203. Line 80 closes the 
program file. 



Using The Program 

After typing in the program file writer, save it on a separate 
disk- To make a working copy of the program, LOAD'PRO- 
GRAM FILE"\8. Next, insert a new, formatted disk and type 
RUN (return). The program will be written out to disk and 
executed. Save the Program File Writer to disk to make addi- 
tional copies of the Auto-Default program. To LOAD the pro- 
gram type 

LOAD" AUTO-DEFAULT ".8,1 

Clearly, the best way to make these changes is to replace the 
operating system ROM with a custom burned EPROM. How- 
ever, if making hardware changes doesn't appeal to your 
interest, the program provided in this article can still be of 
significant help. At last, there is a way to select the screen 
colours that work best with your equipment and have them 
stay even after pressing RUN/STOP RESTORE. Even nicer is 
not having to specify the disk drive for LOADs and SAVEs. Who 
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knows, maybe you will like il enough to take the time to learn 
about making your own custom EPROMs. 

I hope that this program will be of some use lo you. The screen 
colours and default device are of my preference. With a little 
study, the program should be easily modified to fit each 
programmer's needs. 



DN 
CO 

JC 
KO 
AA 
OM 

DA 
OB 
MM 
OA 
NM 
HA 
NO 

CL 
ML 
JM 
LH 
JH 



NK 

FE 

KD 

MC 

PP 

LC 

DP 

HP 

FP 

NL 

CA 

DA 

NF 

BE 

LF 

EH 

PH 

NG 

LJ 

ML 

AA 

JG 

FE 

HG 

FK 

HH 

ON 



100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
240 

250 
260 
270 
280 
290 



rem ** auto-default basic listing ** 

rem move basic rom into ram memory 

for a = 40960 to 491 51: pokea,peek(a): next a 

rem move kernal rom into ram memory 

lor a = 57344 to 65535. pokea,peek(a): next a 

poke 57818,8: rem change i/o default to disk drive 

poke 58677,6: rem change cursor to dark blue 

poke 60634,1 ; rem change background color to white 

poke 64982,229: rem change i/o reset table 

poke 64904,162: remlorcethe topot basic memory 

to $a000 

poke 64905,0 

poke 64906,160 

poke 64907,160 

poke 1 ,53: rem switch in ram memory a! $aOOO 

sys64738; rem system reset call 



100 rem ** writes 'auto-default' auto-run code to diskette 

110 rem *■- written by tony doty 

120gosub 170: open 5,8,5, ''auto-default,p,w'' 

130 print j^5,chr$(0); print#5,chr$(1); 

140 tor 1 = to 258. print#5,chr$(2);: next I 

1 50 for N to 89: read a; print#5,chr$(a);: phnta;: next I 

1 60 close 5: load " auto-default " ,8,1 

170 open 15,8,15, "sO.auto-default ": close15 return 

180data169, 160, 133.254, 169,224, 133,252 

190 data 169, 0,133,251, 133,253,168, 177 

200 data 253, 145,253, 177,251, 145,251.200 

210 data 208, 245, 230, 254, 230, 252, 165, 252 

220 data 208, 237, 169 

230 data 8; rem ** default device nunber 

240data141,218,225, 169 

250 data 6: rem -* default cursor color 

260 data 141, 53,229, 169 

270 data 14: rem ** default bordor color 

280data141,217 

290data236, 169 

300 data 1: rem ** default background color 

310data141, 218.236, 169, 53 

320 data 133, 1,169,229,141,214.253,169 

330data162, 141,136,253, 169, 0,141,137 

340data253, 169, 160, 141, 138.253, 169, 160 

350data141, 139,253, 76.226,252, 0, 

360 data 0, 



IK 
CO 

AJ 

NB 
DK 
LA 
GB 
CH 
MJ 
FH 
JE 
Al 
LC 
LM 
IB 
PK 
KM 
CD 
KC 
IJ 

OA 
IE 
GL 
MF 
KH 
FK 
NO 
DH 
HO 
CI 
FF 
KJ 
KB 
NL 
FA 
KM 
IJ 
Fl 
AM 
FH 
FC 
PB 
JA 
NJ 
CJ 
FP 
FA 
DJ 
GK 
FD 
BL 
PL 
LK 
JP 
EP 
CA 
MP 

CI 
FM 

NJ 
HP 
MB 
DB 
AD 
10 
GO 
OG 
ON 



$0100 ;lhe stack for auto-run 

= $fb 

= Sfd 

= $elda 

= $e535 

= Secda 

= $01 

= $ecd9 

= $fdd6 

= $fce2 



Ida 


#$aO 


sta 
da 


otemp + 1 
#$eO 


si a 
da 


hitemp + 1 
#0 


sta 

sta 
tay 


hitemp 
lotemp 



start the code at address $020: 
get addr for basic routines 
and store the hi byte in ptr 
get the addr for the operating 
system and store it 
get low order byte 
for both and store 
them in the temp pointer 
clear a counter for the move 



PAL Source for Auto-Default 

1 00 rem * * auto default 64 by tony m . doty sandy, Utah * * 

110. 

1 20 open 4,8,1 , " @0:auto default.obj " 

130sys(700) 

140 opt o4 

150* 

160; 

170 hitemp 

130 lotemp 

IQOsavdef 

200chrcol 

210bkgrnd 

220 ioport 

230 bdrcoJ 

240 lovecl 

250 reset 

260; 

270 ; -f slacl^ to be filled with $02's for start al $0202 

280.byt$02, $02, $02 

290; 

300 f =$0200 

310.byt$02, $02, $02 

320; 

330 start = • 

340 

350 

360 

370 

380 

390 

400 

410 

420; 

430 nxtpag 

440 

450 

460 

470 

480 

490 

500 

510 inc hitemp + 1 

520 Ida hflemo + l 

530 
540; 

550 Ida #8 

560 sta savdef 

570 Ida m 

580 sta chrcol 

590 " Ida #$0e 

600 sta bdrcol 

610 Ida #1 

620 sta bkgrnd 

630 Ida #$35 

640 sta ioport 

650 Ida meS 

660 sta $tdd6 

670 Ida #$a2 

680 sta $fd88 

690 Ida #0 

700 sta $fd89 

710 Ida #$a0 

720 sta $fd8a 

730 Ida #$aO 

740 sta SfdSb 

750 jmp reset 
760; 
770 .end 






(lotemp),y ;read the data from 
(lotemp),y :rom and then write it to 
(hitemp),y ;ram for both the high and 
(hitemp),y ;low rom chips 



Ida 

sta 

Ida 

sta 

my 

bne nxtpag 

inc lotemp -f 1 

inc hitemp 

Ida hflemp 

bne nxtpag 



;set default i/o to 8 

;characler colour blue 

;border light blue 

;background white 

select configuration of 

6510'spia 

pia value for reset routine 

;force top of basic memory 
;to $a000 
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File Pursuit 

Richard Evers, Editor 



A File Trace and Size Utility For All Drives 



A simple routine to perform a useful task. File Pursuit will allow 
you to perform a trace of any file held on diskette, excepting 
Relative files and files that have disk protection tricks standing 
in their way. As an added bonus, you will also gel the directory 
track, sector, and index into the sector the file was found on, 
the index into the last sector consumed, and the total number 
of bytes occupied by the file. The byte count also includes the 
first two bytes found in the file, which could be the start address 
i( the file type is PRG. To make everything fall together, output 
can also be directed either lo the screen or printer. 

The concept is simple. Once the file chosen has been found on 
diskette, the directory sector and index into the sector is found 
by looking at location DL-i-(256*DH) for the sector, and 
DL+Dl + {256*DH) for the index. The table below will show 
you the values for each variable depending on the drive type. 

Drive Buffer DT DL DH Dl HY DL+256*DH DL + DI + 256*DH 



1541 $0300 18 144 2 

2031 $0300 18 144 2 

4040 $1100 18 % 67 

8050 $1100 39 % 67 

8250 $1100 39 96 67 



4 3 $0290 656 $0294 660 

4 3 $0290 656 $0294 660 

4 17 $4360 17248 $4364 172^52 

8 17 $4380 17248 $4368 17256 

8 \7 $4360 17248 $4368 17256 



As can be deduced from the above, the 1541 and 2031 appear 
identical, as do the 8050 and 8250, as far we are concerned 
today. Now, for a greater shot at understanding, let's break 
down the variables. 



DT 
DL/DH 

Dl 
HY 



The directory track 

Lo/Hi address in drive RAM where the directory 
sector of the file opened can be found. 
The index from DL + 256"DH that the index into 
the directory sector can be found- 
High byte of the RAM buffer in use for this program. 



Without going into a lot of unecessary detail, once the directory 
sector and index into the sector is determined, reading that 
location tells us the first data block in use. From there, the first 
two bytes are read from each data block to determine if more 
sectors are in use. If the track is greater than zero, then the 
answer is yes, and the pursuit continues. If not, then the last 
block has been reached, and the sector indicator points to the 
last byte of the file in the block. Once this has been determined, 
the total number of all bytes read are displayed, and the 
program terminates. And, due to the method of finding the 
information within the drive, the trace is fast- Not bad for a few 
minutes keying in time. The great pursuit, a Transactor spe- 
cialty. 



AJ 
FB 

MO 

HE 

PN 

KA 

HH 

PN 

PN 

JF 

MD 

LM 

KB 

CM 

KM 

OG 
PD 
MM 
JH 

GJ 
BN 
KK 
CG 
EG 
FN 
FH 
OK 
KF 
AP 
DL 
EN 
OA 
CK 
10 
AF 

IB 

FF 

LP 

LL 

PO 

GD 

CH 

KG 

GJ 

IF 
OL 
CO 



1 00 fern save - @0:file pursuit ■" .8 

110 rem ** rte/84 - file trace + file size (includes 

first 2 bytes)** 
120: 

130 print ''* file pursuit: trace and size **" 
140z$ = chr$(0);ttl = 
150: 
160 input "(s) screen or(p) printer ";sp$: dv = 

170ifsp$= "s" thendv = 3 

180ifsp$= "p" thendv = 4 

190itdv = 0then160 

200: 

210 print '(1)1541/2031; (2) 4040; (3} 8050/8250" 

220 input dt$: \i dt$< " 1 " or dt$> " 3 " then 220 

230dt-39:dl = 96:dh = 67:di = 8:hy = 17:ifdt$="2" 

thendt=18:di = 4 
240ifdt$= "1 " thendt=18:dl = 144:dh = 2 

:di = 4:hy = 3 
250: 

260 input " dr#, filename " ;d$,f$ 
270 open 15,8,15 
280open8,8,3,{d$)+^:' +(i$): get#8,a$ : ifst 

then print 'not found": stop 
290: 

300 open 1 ,(dv): rem open screen/printer channel 
310: 

320 rem * * file exists - get sector + index into dif trk * * 
330pnnt#15,"m-r"chr$(dl)chr$(dh)chr$(1) 
340 get#15,s$: sec = asc(s$ + z$) 
350 print#15, " m-r ' chr$(dl + di)chr$(dh)chr$(1) 
360get#15,i$: ind = asc(i$-+-z$) 
370 close 8 
380: 

390 print^l, "filename: "fS"" Dndr#'d$ 
400 prinl#1 , ' found: dir track " dt " sector " sec" index " ind 
410: 

420 open 8,8,8, '#0' 

430 prjnt#15, " u1 " ;8;val(d$);dt;seG. rem read in block 
440 print#15, " m-r " chr$(ind + 1 )chr$(hy)chr$(2) 

: rem get track, sector links 
450get#15,tr$,sc$:trk = asc(tr$ + z$):skt = asc(sc$ + z$) 
460 if trk then 520: rem track = if last block 
470 pnnt#1 , " index Into last sector = ' ski 
480 ttl - ttl + skt 

490 print#1 , " total file size = " ttl-255 " bytes 
SOOclosel: close8- close15: end 
510: 

520 print#l , " link : track ' trk ' sector " skt 
530 prinl#1 5, " u1 " ;8;val(d$);trk;skt 
540 print#15, " m-r ' chr$(0)chr$(hy)ctir$(2) 
550tt! = ttl + 254.rem *- add up file size 
560 goto 450 
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Supernumbers 

For The Commodore 64 



John R. Bennett 
Ann Arbor, MI 
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Finally — Indestructible Variables! 



When I got my Commodore 64, I was amazed at its power and 
versatility. However, I had one minor gripe - editing a single line of a 
program causes all the variables to be cleared. I knew why this 
happens; variables are stored at the end of the program and when the 
program changes size, this location moves. To keep its memory 
pointers iniernally consistent BASIC clears all variables whenever a 
program line is entered. 

However, not all microcomputers do this. In particular, the Sharp f^- 
1500 stores variables at the top of memory in reverse order. In 
addition, it has permanent memory locations for the 26 single letter 
variables. Thus, you can run a fairly long program to calculate 
something, and then modify the display stage to present the answer in 
different ways without clearing the variables (as long as you restart the 
program with a GOTO statement rather than a RUN). 

The permanent storage locations for the single letter variables has a 
nice side effect - programs run faster because the BASIC interpreter 
does not have to search through the variables looking for the one you 
want. One day, while 1 was killing time by disassembling BASIC, it 
occurred to me that Commodore had left enough holes (indirect jumps 
through RAM addresses) to allow me to remedy this problem. The 
resulting patch to BASIC, which i call ^SUPERNUf^BERS' has all the 
advantages of the reverse, top of memory storage. In addition, be- 
cause they are a new class of variables which are not touched by a 
normal CLR, Supernumbers are invulnerable to almost all modes of 
program failure. They survive R UNSTOP/ RESTORE, LOADing pro- 
grams, and even hitting a reset button. Only a power outage, a 
runaway program which pokes the memory locations where they are 
hidden, or Kryptonite can destroy them. Supernumbers also provide 
an excellent vehicle for passing floating point variables between 
machine language and a BASIC program- 



To understand how Supernumbers are created you have to study the 
way BASIC handles the simple replacement statement; 



X = Y 



The BASIC interpreter examines the statement from left to right one 
character at a time. When it encounters the X, it stores it and then 
looks for the next character. Since the next character is an equal sign, 
it knows that it needs to evaluate an expression for a real number and 
store the number in the location reserved for X, At this point the 
interpreter calls a routine which finds the address of the variable and 
stores a pointer to it in $49-$4A. It then calls a routine we can call 
'formula evaluator', whose job it Is to evaluate the right hand side of 
the equation and return a number. Thus, to define a new variable type 
one is required to modify two portions of BASIC, the part which finds 
the address of a variable and the part which computes the value of a 
numeric express! on . 

To make Supernumbers instantly recognizable to BASIC, they are 
prefaced with the £ character (The English Pound symbol, between 
the minus and CLR/HOME keys). Although you could make any 
number and type of Supernumbers, i chose to make them real and to 
have only 26 corresponding to the 26 single letter variables A-Z, 

When Supernumbers are used, the above assignment is done slightly 
differently. First of all, the assignment would appear as: 

£X = £y 

When BASIC parses this statement. The first character it finds is the £ 
on the left hand side. It immediately signals the dreaded "SYNTAX 
ERROR'. However, before anything nasty happens, the Supernumber 
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wedge in ihe normal error roufine checks lo see if a jC caused Ihe 
error. If it did, il checks the code up to the equal sign lo see if it can 
handle it. If so, il puts the address of h£X in the pointer $49-$4A, and 
returns to the BASIC interpreter at the proper place. It may seem iike 
extra work to let a syntax error happen and then cancel it, but in fact it 
is much simpler and faster to do this than to put a wedge into Ihe 
CHRGET routine like many methods do. The code in the CHRGET 
wedge is executed every lime BASIC looks for another character, but 
the error wedge code is only executed when the wedge character is 
found. {Editor's note: See "A New Wedge For The Commodore 64'^ by 
Brian Mnnshow in the last issue - Vol 5 issue 06). The Supernumber 
routine more than makes up for the small extra work by finding the 
address of £X very quickly. BASIC would have to look through the 
whole table of variables until it found the right one. In large programs 
this process can use up considerable time. 

The occurence of a Supernumber on the right hand side of the 
equation is easier to handle because Commodore had the wisdom to 
put an indirect jump through RAM at a convenient spot. The Commo- 
dore 64 Programmer's Reference Guide calls the vector lEVAL; il is 
stored at $030A-$030B, This vector is used in the BASIC interpreter at 
SAE83. where il executes the instruction: 

JMP($030A) 

At power-up the KERNAL puts the address of the next statement, 
$AE86, in this vector The Supernumber routine writes its address 
there instead and looks for the use of the £ character. If a Supernum- 
ber is required, it calls another BASIC routine to move il to the floating 
point accumulator before returning control lo the BASIC ROM. 

The entire program and memory space for these 26 Supernumbers is 
less than 300 bytes. When assembled at SCOOO, a 'cold' start of 
Supernumbers, which sets them lo zero, is invoked by the command: 

SYS 491 52 

A 'warm' slart, which keeps the old values, is invoked with: 

SYS 491 55 

You can use Supernumbers anywhere you can use a standard floating 
point number, except as the counter in a FOR-NEXT loop. The 
execution speed gained by using them depends on Ihe program. In 
some simple tests, I found a 30% increase in speed. Programs with a 
lol of variables may benefit more; those programs with a lot of string 
manipulation or I/O will benefit less. The biggest advantages of 
Supernumbers, however, are their invulnerability and their fixed 
memory locations. They can be easily passed to new or modified 
BASIC programs and can easily be accessed by machine language 
programs. 



Editor^s Note: "Supernumbers" is a threat tittle utility; handy, fast, and 
short. The only drawback is that there^s no such thing as Supernumber 
arrays. It would be nice, for example, lo PRINT £A(I). No problem. 
You can index supernumbers and transfer them to normal arrays with 
BASIC prfigram. The short program in listing 3 uses a ^'dynamic 
keyboard" technique to transfer the 26 Supernumbers £a to £z into 
the array o(I) to o(26). Il then prints the array out as a visual check. 

One more thing: There appears to be more than 26 Supernumbers 
available: £.* and ££. among others. How many can you find? 



Listing 1: Supernumbers BASIC loader 



Bl 

LI 

KG 

DM 

GK 

HH 

AH 

AF 

IN 

CO 

GC 

HA 

ID 

MM 

MO 

NH 

LB 

OK 

NJ 

AM 

DH 

DL 

MF 

EP 

BB 

MM 

GP 

OB 

GL 

FB 

MP 

NM 

FA 

PM 

PI 

DP 

DP 

LB 

BP 
HD 
AJ 
NH 
DG 
GH 
PJ 



3 

19 







10 rem* data loader for "supernumbers" * 
20 cs = 

30 for i = 491 52 to 49447:read a: poke i,a 
40cs = cs + a:nexti 
50; 

60 if CS036424 then prinl" ***** data error •••-* 
70 print " sys 491 52 for cold start " 
80 end 
100: 

lOOOdata 32.102.192,169, 61,141, 10, 3 
1010data169, 192. 141, 11, 3.169. 24,141 
1020 data 0, 3,169,192,141, 1. 3, 96 
1030data224, 11,208, 4,201, 92,240, 
1040data 76,139,227, 32,115, 0, 32, 
1050data177,233, 65, 10,170, 32,115, 
1060data189, 113, 192, 188, 114, 192, 162, 
1070dala134. 13,134, 14. 96,169, 0,133 
1080 data 13, 32.115. 0.176, 3, 76,243 
1090dala 188,201. 92,240, 3. 76,146,174 
llOOdata 32,115, 0, 32, 19.177.233, 65 
niOdata 10,170, 32,115, 0,189,113.192 
1120data1S8, 114, 192, 76, 162, 187, 162, 130 
11 30 data 169. 0, 157,164,192,202,208,250 
1140dala 96.165,192.170.192,175,192,180 
1150datal92, 185. 192, 190, 192, 195, 192, 200 
1160datal92,205. 192,210, 192.215, 192, 220 
1170 data192, 225, 192,230, 192,235, 192,240 
1180 data 192, 245, 192,250, 192,255, 192. 4 
1190data193, 9,193, 14,193, 19,193, 24 
1200data193, 29,193, 34,193,157,167, 2 
1210 data 165. 2,197, 2,240,193,169, 
1220 data 141,253. 3,133, 2.162, 6,202 
1230data 189, 174. 2, 164, 2, 192. 0, 254 
1240 data 1, 193, 0,208,242, 134. 2, 134 
1250data 52, 3,134,212, 3,166,245, 3 
1260data 16, 65, 16,149,119, 2,224.134 
1 270 data 245, 3, 1 66, 21 2. 3, 224, 1 , 208 
1280 data 21 4, 165. 52. 3,133,198, 68, 49 
1290data226, 68.192,193,134, 54, 3,165 
1300 data 197, 65, 6,208, 4, 
1310data 35, 80, 177, 17, 149, 
1320data 54, 3, 161,226, 133, 
1330dala165. 197, 193, 3,208, 
1340data 3.238, 164. 2.181, 
1350 data 21 0,215, 192, 192, 6,208,245,208 
1360 data 7, 68, 51,193,193, 5,208, 



193, 3,208 
20. 1 1 1 , 227 
21, 3, 80 
19, 134, 54 

194, 2, 



end 



Listing 3: Transfer Supernumbers to regular BASIC array, A( ) 

100 rem supernumber arrays 

110 rem this program puts "supernumbers" 

1 20 rem £^-£i into the array a(1 )-a(26) 

130; ^^ 

140dima(26):pnnf'|^H^ 

150 fori =1to26 

160 poke 631, 13: poke198,1 

170l$-chr${64 + i) 

1 80 j$ = right$( " " + mid$(str$(i),2V2) 

190 prJnr'B|a("i$ ") = £■' i$" contra" i:end 

200 next: rem now print out array 

210 fori = lto26:printa(i),;next 
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Listing 2: Supernumbers PAL source 


PO 


630 


cmp#''£'' ;makesurea '£' 




El 


640 


beq found ;caused it 




OH 


10 : 


AA 


650; 




KL 


20 open2,8,2, "@0:supernumber.ob],p,w'' 


CA 


660 rea err 


jmp olderr ;notsupernumber 




CJ 


30 : 


EB 


670; 






PB 


40 rem activate pal 


CG 


680 found 


jsr chrget ;find out which 




GK 


50 : 


DF 


690 


jsr ckaph ;letter isnext 




NA 


60 sys700 


CD 


700; 






ML 


70 




N 


710 


sbc #"a" ;compute position 




BG 


80 


.Gpto2 


OK 


720 


asl ;in address table 




AN 


90 




FK 


730 


tax 




KC 


100 


; supernumbers for the commodore 64 


CF 


740 


jsr chrget ;point to next byte 




EO 


110 




AF 


750 


Ida numtab.x ;gel address in 




FP 


120. 


; by John r. bennett 


FC 


760 


dy numtab + 1 ,x ;(a,y) registers 




IP 


130 




JE 


770 


Idx #0 




NP 


140 


no rights reserved 


FF 


780 


stx valtyp ;real number 




MA 


150 




JF 


790 


stx intftg 




HE 


leOchrget = $0073 ;get next byte 


MA 


800 


rts 




AC 


170, 


AK 


810; 






CH 


1 80 valtyp = $0d ;data type (0 = number) 


OK 


820 neweva 


I Ida #0 




HC 


190intf g = $0e ;datatype(0 = floating point) 


MJ 


830 


sta va typ 




OD 


200; 


KG 


840 


jsr chrget 




FK 


210ierror = $0300 ;the vectors to 


MJ 


850 


bcs nodigit 




KG 


220ieval = $030a ; be modified 


CN 


860; 






MF 


230; 


CK 


870 


jmp ascfit ;notsupernumber 




Fl 


240oEderr = $e38b ,the old values 


GO 


880; 






lA 

1 


250oldeval - $ae86 ;inthevectors 


OK 


890 nodigit 


cmp#^de^ 




KH ' 


260, 


MN 


900 


beq found 1 




PN 


270 ; routine which returns with carry 


EA 


910; 




. 


EK 


280 ; set If accumulator is a letter 


Jt 


920 


jmp oldeval + 12 ;notsupernumber 




LE 


290ckalph = $b113 


B ■ 


930; 






CK 


300; 


NP 


940 found 1 


jsr chrget ;find out which 




MP 


310 ; routine to oad floating point 


HF 


950 


jsr ckaph ; fetter is next 




LL 


320 ; accumulator with number pointed 


CN 


960 


sbc #"3" ;compute position 




LH 


330 ; to by (a,y} 


IK 


970 


asl ;in address table 




00 


340memto1 = $bba2 


PJ 


980 


tax 




EN 


350; 


EE 


990 


jsr chrget ; point to next 




DB 


360 , routine which changes ascii to 


OF 


1000; 






PC 


370 ; floating point - norma y ca ed 


AE 


1010 


Ida numtab.x ;put supernumber 




K 


380 ; by oldeval 


JB 


1020 


Idy numtab + 1 ,x ;into floating 




K 


390 ascf t = $bct3 


, FP 


1030 


jmp memtol ;pointaccJ1 




GA 


400; 


Gl 


1040; 






Lt 


410* = ScOOO 


LP 


1 050 clrram 


Idx #130 ;set all super- 




KB 


420; 


DO 


1060 


Ida #0 ;numbers to zero 




B 


430 CO d = * ; cold start 


CO 


1070morex 


sta ram-1,x 




OC 


440; 


PO 


1080 


dex 




PC 


450 jsr clrram ; set ram to zero 


AK 


1090 


bne morex 




CE 


460; 


ID 


1100 


rts 




N! 


470 warm = * ; warm start 


MM 


1110; 






GF 


480; 


MO 


1 1 20 ; address table for supernumbers 




ON 


490 Ida #<neweval , replace vectors 


AO 


1130; 






ML 


500 sta leva 


JB 


1 140numtab,wofdram,ram + 5,ram + 10 




KK 


510 Ida #>neweval 


ML 


1150 word ram + 15, ram +20, ram + 25, ram + 30 




JK 


520 sta levaJ + 1 


KN 


11 60, word ram + 35,ram + 40,ram + 45,ram + 50 




DP 


530 ida #<newerr 


IP 


1170 .word ram + 55,ram + 60,ram + 65,ram + 70 




Dl 


540 sta ierrof 


GB 


1180 word ram + 75,ram + 80,ram + 85,ram + 90 




DA 


550 da #>newerr 


IN 


1190 .word ram + 95, ram + 100,ram + 105 




OH 


560 sta ierror + 1 


CH 


1200 .word ram + 110,ram+115,ram + 120 




GO 


570 rts 


AD 


1210.wordram + 125 




KL 


580; 


KD 


1220; 






EM 


590; 


ME 


1230 ram* 


= * + 130 




GA 


600 newer r cpx #11 ;only forgive 


OE 


1240; 






AH 
CO 


610 bne reaerr ;syntax errors 
620; 


OL 


1250 .end 
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VARPTR: Creation of 
a new BASIC Function 



Anthony Bryant 
Winnipeg, MAN. 



The VARPTR function, which returns the address of a given 
variable in memory, is standard in many BASICs but not. alas, 
Commodore BASIC, There are times, such as when executing a 
short machine language routine stored within a string, when it 
is desirable to know where the darned thing is in memory.! 

Just change the USR vector (at 785-786 on the C64, 1-2 on 
others) to point to this little routine: 

LDA$48 ;($45forPEr) 

LDY$47 ;($44forPET) 

JMP $B391 ;C64 fix-float conversion 

; ($D391 for VlC-20, 

$C4BC for BASIC 4.0. 

$D26Dfor2,0) 

then, either in direct or program mode, USR(variable) will give 
the address of the variable, whether integer, real, or string. 
Note that with a string variable it points to the first byte of the 
string descriptor, and with real or integer variables it points to 
the data {not the name). 

Thus, if you use a statement like 



then 



V = USR(ML$) 
PRINT PEEK(V) 



will show the length of ML$, and 

PRINT PEEK(V + 1) + 256*PEEK(V) 

will give the starting address of the string itself. Using this 
technique, you could put a short (less than 256 bytes) machine 
language program into the variable ML$. then SYS to the 
string's start address to execute the program. A clean solution, 
precluding the need to protect memory for a temporary pro- 
gram. 



Here s a bit of BASIC to put the VARPTR program (for the C-64) 
in the cassette buffer and set up the USR vector accordingly. 

5remvarptr: 'USR(var)- 

10fori = 828to834:reada:pokei, a; next 

20 poke 785, 60: poke 786, 3 

30 data 165, 72, 164, 71, 76, 145, 179 

Editor's Note: This has to get the award for "Best 7-Byte 
Program''! 



Extra C64 Editing Commands 
Using the Function Keys 

While programming, and particnlariy when doing disk opera- 
tions using filenames from a directory on the screen, it is handy 
to be able to clear the screen of a small portion - say one or two 
lines below the cursor or everything below the cursor, to allow 
room for disk messages. 

With the installation of the following pre-interrupl routine, the 
function keys become: 

Fl - cursor to lower left corner 

F3 - clear one line below cursor line 

F5 - clear five lines below cursor line 

F7 - clear to bottom from below cursor line 

The routine which follows (printed in both assemble source 
and BASIC loader formats) is relocateable anywhere, taking up 
only 75 bytes. In addition it can be used with the screen in any 
bank position as it uses the C-64's clear screen line routine in 
ROM (which according to Mr. Butterfield basnet changed with 
the ROM updates - one lives in hope!). 



Th« Ib^fitoctor 



40 



Volume6, lssu«01 



F 


TH 


_ _l f_k --- J.-L j-L j-b j-u L-B m-^ H-K xv j^^ B-H V X F r% -k i~k r% y^ ■> r^ r\ /^ 








J ;to start "PAL" assembler 

i 


inere are some personal preitirtJiiLc L.ijdiiyt^& wiii*_ji i-au uc 
made to the routine: 


LN 
GN 


lOOsys/OC 
1 1 .opt OC 




JG 


120 • 


= ScOOO 


1) If you want F5 to clear other than five lines then modify the 


MK 


130 ;screen editing routines: 


number of INX instructions. 


PF 


140; 


■pr 


-cursor to ower eft corner 




KO 


150, 


'FS" 


- clear one line 


2} As it stands, F5 won't clear five lines unless there at least five 


B 


160: 


"FS" 


-c ear five lines 


lines remaining to the bottom of the screen. Change the BCS 


KK 


170 


"F7^ 


- ctear to bottom 


EXIT instruction to BCS BOT and it will clear five lines or 


ED 


180 setup 


= • 


less, unti the bottom of the screen is reached. 


HF 


190 


set 


? 


HL 


200 


da #<newirq 




GE 


210 


sta $0314 ;irq vector 




HM 


220 


Ida #>newirq 




CK 


230 


sta $0315 








OH 


240 


cli 










Al 


lOrem-data oaderfor "screenedit" * 


GO 


250 


rts 




LI 


20 OS = 


KH 


260; 






BG 


30 for i = 49152 to 49226:read a:poke i,a 


OC 


270 newirc 


1 = • 




DH 


40cs = cs + a.nexli 


KG 


280 


Idx $d6 




GK 


50: 


AH 


290 


stx $02 ;save current cursor ine 




JA 


60 if CS091 68 then prinr***'" data error ""•**": end 


NN 


300 


Ida $c5 




DD 


i 

70sys49152 
80 end 


NA 


310 


and #$7f ;test current key pressed 


' 


AF 


KF 


320 


cmp#4 ;testforkey 'Fl " 




r ^ r 

IN 


100. 


IH 


330 


bne 13 




EP 


340 


Idx #$1 8 ;bottom screen line 




KB 


1000data120, 169, 13,141, 20. 3,169,192 


GG 


350 


bne move ;branch a ways to move cursor rtn 




JD 


1010data141, 21, 3, 88, 96,166.214,134 


BA 


360 13 


= * 




MN 


1020data 2,165,197, 41,127,201, 4,208 


FH 


370 


cmp#5 ;key ^3^ 




JA 


1030data 4,162, 24,208, 38,201, 5,208 


GL 


380 


bne 17 




II 


1040data 3,232,208, 17,201, 3,208, 4 


LB 


390 


inx ;point to line below cursor line 




NA 


1050data162, 24,208, 17,201, 6,208, 24 


EC 


400 


bne doit , clear ine routine 




FC 


1060 data 232, 232, 232, 232, 232, 224, 25, 176 


PD 


41017 


= # 




NA 


1 070 data 8, 32, 255, 233, 202, 228, 2, 208 


HK 


420 


cmp#3 ;key ^7" 




KE 


1080 data 244, 166, 2,160, 0, 32, 12,229 


AO 


430 


bne f5 




10 


1090 data 76, 49,234 


Dl 
JP 


440 bot 
450 


= * 

Idx #$18 ;dear from bottom to cursor 










PC 


460 


bne ckjt ;branch always 




FH 


470 f5 


= * 




HO 


480 


cmp#6 ;key ■'F5" 




HD 


490 


bne oldirq 




KK 


500 


inx ipoint to five lines 




OJ 


510 


inx ;be1ow cursor line 




EO 


520 


inx 




00 


530 


inx 




IP 


540 


inx 




LH 


550 doit 


= * 




DE 


560 


cpx #$19 ;check max screen line limit 




DP 


570 


bcs exit 




JB 


580 


jsr $e9fl ;clear screen ine routine 




FA 


590 


dex 




PJ 


600 ckit 


:= # 




BM 


610 


Cpx $02 ;reached cursor line"? 




PL 


620 


bne doit ;no 







630 exit 


^ « 




OB 


640 


Idx $02 .restore cursor line position 




GB 


650 move 


! = * 




JA 


660 


Idy #0 ;left column position 




AG 


670 


jsr $e50c ;pos'n cursor, fix ine/colormem 




01 


680 oldtrc 


1 = * 




LN 


690 


jmp $ea31 




IJ 


700 .end 
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Bootmaker II 



Jeff Goebel 
Georgetown, Ont. 



The program listed here is a special type 
of program. When you RUN it, it writes a 
BASIC program to your specifications. It 
allows people witti no programming expe- 
rience to design and create personalized 
"BOOT" programs in seconds, simply by 
answering a few simple questions. 

A "BOOT" is a program that automatically 
loads another program, its main purpose 
is to eliminate memory work. Not com- 
puter memory, but your memory. Some 
programs, like many machine language 
routines, need to be loaded using ",8,1" 
instead of the normal L0AD"NAME",8. If 
you have a lot of these programs on as- 
sorted disks all over, it sometimes be- 
comes hard to remember which need the 
",1" and which ones don't. Additionally, 
many programs require specific SYS com- 
mands to activate them. Since there are 
many locations in memory where a ma- 
chine language program can sit, there are 
many different SYS commands to remem- 
ber. 

Simply running Bootmaker 11 will show 
you basically how it works — !t asks the 
appropriate questions. When entering the 
program, note that many of the state- 
ments require that they be typed in EX- 
ACTLY as they appear. 



EC 

Fl 

HP 

HI 

Ni 

Jl 

Kl 

PG 

EB 

AG 

MD 

CK 

GO 

FP 

PN 

JF 

OD 

KE 

OH 

JP 

BK 

EM 

IL 

OA 

IL 

PL 

AO 

IP 

LC 

HN 

HM 

ON 

HH 

MN 

DK 

EH 

GO 

OB 

KN 

OH 
CD 
BA 

AK 
OE 
BL 
GH 
GJ 
IM 



rem " bootmaker ii - magazine version 

1 rem " 

2 rem " transactor magazine 

3 rem " 

4 rem " vi/ritten by Jeff goebel 1 984 

5 rem " 

6 rem " 

10poke53280,0:poke53281,0;printchr$(147)chir${14) 
110 print "Input name of program to boot"'(nputc$ 
1 50 input " Screen colour of boot (1-16) " ;a$:b = val(a$) 
1 70 input " Border colour of boot (1 -1 6) " ;a$:a - val(a$) 
1 75 input " Cursor colour of boot {1 -1 6) " ;a$:c = vai(a$) 
1 80 print " Screen message #^ while toading " :inputs1 $ 
1 90 print " Screen message #2 while loading " :inputs2$ 
21 input " Activate command (sys or run) " ;ac$ 
220 print" Save @:"c$" ?" 
230gela$:i1a$=""then230 
240ifa$=''n"then1000 

245 b$ = cS:print" Boot name: ";b$:c$-b$+ ".1 ":print" It loads: ^c$ 

246 print "ok?" 

247 geta$:ifa$<> " y ' anda$<> " n " (hen247 

248 tfa$ = " n " theninput " Input name to load " ;c$ 
250open15,8,15 

+ c$+' = 
+ b$ + 



+ b$ 



41 n 



;a4$:goto1007 



260prinl#15,"c0: 

270prinl#15,"s0: 

280 close 15 

290open15,8,15 

300input#15,a$,a1$,a2$,a3$ 

310printa$;" "a1$;" ";a3$;" 

1 000 ifa$ - " n " theninput " name of boot program " ;b$ 

1001 prinf'Boot: " ;b$:print"Loads: "c$;pnnt"OK?" 

1 002 geta$ : ifa$<> " y " andaSO " n " then 1 002 
1003ifa$= "n"lhenrun 

1007printchr$(147);" Creating boot program, BOOTMAKER 
1 008 print " Transacto r Magazine 1 985 Jeff Goebel " 
1 01 print " ^SBBHI l rem boot by bootmaker ii " 
1015 print" 20 rem transactor magazine" 
1020 print "30 rem jeff goebel- 1984 
1 030 print " 40 poke53280, " a " :poke53281 , " b " :? " chr$(34) " 

chr${34);":poke646,":c 
1040print"50?"chr$(34);s1$ 
1 050 print " 55 ? " chr$(34);s2$;chr$(34); " :poke646, " b " 

1 060 print " 60 ? " chr$(34) " flload " chr$(34) " chr$(34) " chr$(34); 
c$;chr$(34) " chr$(34) " ; 

1061 printchr$(34),",8,1 ' c hr$(34) 

1 070 print " 70 ? " chr$(34): " BfiBBl " ;ac$ 

1080 print" 80 poke198,2:poke631,13:poke632, 13 

1 090 print " 90 ? " chr${34): " Q " ;chr$(34): " :new " 

1 1 00 print " flsave " chr$(34); " @0: " b$;chr$(34), " ,8 " 

1200poke198,10:fort = 631to641:poket,13:next:print"H"-new 
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Datapoke Aid 



Daniel P. Chernoff 

Portland, OR 



The Easy Way to Enter BASIC Loader Programs 

If you^e a hunt-and-peck typist like myself you'll appreciate 
this handy utihty to facilitate the typing in of machine language 
BASIC loader programs. 

As you know, these programs consist of a series of DATA 
statements which, when the program is run, are POKEd into 
memory locations to create a machine language program that 
can then be accessed with a SYS command. Usually a check- 
sum is provided to check the total of the numerical data entered 
as a method of spotting an entry error. 

Datapoke Aid is a BASIC program using Dynamic Keyboard, a 
program line eraser to remove it alter it has done its job, a 
numeric keyboard and error-trapping routines to create in a 
fast manner the lines of DATA statements for the loader pro- 
gram. 

The program resides at lines 59999 and above to ensure that it 
doesn't interfere with the program lines to be entered. When 
first run the program prompts for the following inputs: 

(1) Right or Left-hand keypad (Being a rightie I assume, but 
don't know, that a pad on the left side of the keyboard 
would be a convenience for our sinister friends); 

(2) The starting program line for the data statements to begin at; 

(3) The number of data statements per program line (usually an 
even number in the range 6-20); and the 

(4) Checksum, if any (This does not check each data statement 
line but only the grand total - most long loader programs 
provide one). 

Once this information is entered it need not be entered again, 
even if the typing in of the program is interrupted- In fact, 
because each data statement line entered becomes a program 
line, no work is lost if the program breaks or is otherwise 
halted. (Even in the unlikely event of a crash (keyboard freeze- 
up) a reset, if you have that facility, and an UNNEW program 
will restore all your work. The program can be saved as a 
BASIC program at any point following the entry of a line and 
then reloaded at a later time to continue the entering of 
subsequent data statement lines. 

The key to the program is an error-trapping routine that, in 
conjunction with the numeric keypad, allows only numerics to 



be entered and only numbers between and 255, After each 
number is inputted from the keyboard a comma is inserted by 
pressing the spacebar as the program checks to see that the 
number lies in the prescribed range. (The "DEU key permits 
corrections to be made beforehand.) A valid number yields a 
'right' ding tone and the program proceeds to the next data 
item, whereas an invalid number entry provokes a 'wrong' 
buzzer and blanks the item for re-entry. 

After each line of data statements is entered the program then 
jumps to the Dynamic Keyboard routine at 60230-60240 
which enters the line into the program, updates the running 
sum of the data items and resets for entry of the next line. The 
program entry may be halted at the end of the data entry or at 
any intermediate point (at the end of a data statement line) by 
pressing the Fl function key. 

If entry is not completed when halted then the entire program, 
consisting of the lines entered thus far and the Datapoke Aid 
utility, can be saved to disk. Conversely, when all entry is 
finished then, in response to the prompt, the utility can be 
deleted by the routine at 59999 (A useful little "Electric Eraser' 
you can find use for elsewhere, it essentially tells the computer 
that the top of BASIC memory is beiow the portion at lines 
59999 onwards where this utility program resides.) However, 
before deleting the utility the program forces you to save the 
hie, just in case. 

After the utility has been deleted, the remaining BASIC loader 
program can be edited or augmented as any program. If the 
checksum is wrong after your entry (quite likely, and the 
buzzer will tell you so), the program can be proofread against 
the original and errors corrected. 

Note that once the program is run. it modifies itself by adding 
lines 60020 and 60030 to intialize important variables and skip 
the initial start-up questions. To re-run the program for a 'cold 
start', change these lines back to the way they appear in the 
listing, 

1 find the real value of this program, for a non-typist, is the 
ability it provides to enter the program lines completely with 
one hand while the other traces along the program listing being 
copied, and without the necessity of either looking at the 
monitor screen to verify where you are or moving your hand 
from a single position poised above the keypad. 
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GE 
DH 
EF 



PP 
CM 
GG 
10 
CO 
GJ 
Jl 
HO 
MH 
ND 
EE 
OP 
GE 
PL 
Jl 
HD 
FJ 
GB 
NA 
MM 
OJ 
NN 
DO 
MG 
KN 
AG 
PP 
NP 
AN 
AA 
AB 
JL 
LB 
GN 
EA 
CP 
PN 
LJ 
CN 
LK 
DN 
AA 
IP 
NP 
CL 
ML 
CD 
KG 
IE 
DJ 
CI 
HG 
JM 



59999 a = peek(61) + 256'peek(62) + 3:poke786,int(a/256):poke785,a-256-peek(786) 

60000 rem: " DATAPOKE AID 1 0/24/84 (c}1 984 Daniel P. Chernoff 
60002 ifer = 0then60020 

60004 printc hrSQI) " sA " chr$(34) " @0: " f$chr$(34) " ,8 

60005 print " HDvE ^chr$(34}f$chr$(34) " ,8e 

60006 poke198,4:poke631,19:form = 1to3:poKe631+m,13:next 

60008 iferthenpokea-2,0:pokea-1,0:poke45,peek(785):poke46,peek(786):clr:run 
60020 ; 

60030 poke 2,0 

60040 poke53280,6:poke53281 ,6:printchr$(14) 

60050 print 

60060 print 

60070 print 

60080 print 

60090 print 



[ieS 





60100 print 

601 10 poke2i4.21:print:pfinl 



■ ^^^^ ^ DataPoke Aid ' ;pri ntlab(1 4) " 
iLeflQlQIorrightBrQhand keypad: 
tarting fine of data: " ;:inputb^rint " Q " tab(22}^ 
|Program line increments: 10■^:inpulin:print " 
No. of data items per line: sff^' ;:inputd:prinf 
hecksum (if any): " ::inputck:prjnt " B^ tab(1 ST" 



F1 -end [data sum = " cs 



;:inputk$:print 





^tab(24)- - 
'tab(27)" " 

:goto60710 
!checksum is'ck 




"chr$(14):poke53281,6:poke53280,6:gosub60320 



60120 c = b + {in*peek(2)):print 
60130 dima(30):k = 1 

60140 print'"s";:forj = 1to7:prinf [40 spaces] ^:next 
60150 gosubSOIIO 

60160l-l + 1:gosub60750:print"B|"c"data ";:fon = 0tod-1 
601 70 gosub60480:ifa$ = ' " then601 70 

60180 ifa$ = chr$(20)andc$<>-"thenc$ = lett$(c$Jen(c$)-1):prfnfH ||";:goto60170 

60190 ffa$= "H"then60530 

60200 gosub60790 

6021 ifa$ = chr$(1 3)thena{k) = val(c$):cs - cs + a(k):c$ = - :k = k + 1 

60220 ifa$ = chr$(13)thenffi<d'-1thenprint\";:gosub60225:next 
60222 goto60230 

60225 s = 54272:pokes + 24,15:pokes+ 1,110 

60227 pGkes + 5,9:pokes + 6.9:pokes + 4,17:pokes + 4J6:return 

60230 ifa$ = chr$(13)thenpoke2,peek(2}+1:print:printchr$(31)-60020cs="cs:print'"rU 

60240 ifa$ = chr$(13)thenpoke1 96, 4:pGke631,19:form = 0to3:poke632-t-mJ3;next:end 

60250 ifasc{a$)<45orasc(a$)>57thengosub60440:a$ = " " :goto601 70 

60260 printa$;:c$ = c$ + a$:a(k) = val(c$} 

60270 if a(k)>256thengosub60440: print" jErrorl - reenterH";:gosub60290;next 

60280 goto601 70 

60290 for] = 1to300:ne xt. ffa(k)>1 OOOthenIS = "fl" 

60300 print huimill" + 1$ + ' [22 spaces]|||||||||||| ' ; 

60310c$= ^M$= ^\a(k) = 0:i = i-1:relurn 

60320 poke214,6:prfnt:printspc(16) 

60330 ffk$ =' nfien60390 

60340 printspc(14)" 

60350printspc(14)" 

60360 printspc(IO)^ 

60370printspc(14)" 

60380 return 

60390printspc{14)" 

60400 printspc(14)" 

60410 printspc(IO)" 

60420printspc(14)" 

60430 return 



;: return 






pace ba 




[Keypad ":printspc(1 6)" 



HoJH^printspc(11)- 7 

Bljffj)nntspc(ll)" 4 

■:printspc(15)\ [comma] 



";printspc(11)" 
""iprintspc{11) 



8 




8 



ntspi 
:printspc(15)", [comma] 



60440 rem: 'wrong buzzer' 

60450 poke54296,15:poke54273,5 

60460 pGke54277,0:poke54278,240:pake54276,33;fort=1to500:next 
60465 poke54276,32:gotG60470 

60470 forl = 54272to54296:pokel,0:next:return 
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FG 
00 
BL 

AG 

El 

BN 

IP 

JH 

HA 

LF 

EA 

OJ 

ID 

Gl 

PK 

NB 

MP 

GL 

LA 

CC 

GG 

OK 

HJ 

MB 

CF 

HP 

IJ 

PH 

NN 

FO 

DB 

DA 

10 

HK 

DH 

PH 

ON 

IG 

EE 

Gl 

LK 

KO 

CG 




60480 rem:flashes char cursor to screen awaiting a get. change char as desired 

60490 print' Q"; 

60500poke204,0:geta$:ifa$='"'then60500 

60510poke204,1;prinl" |^ 

60520 return 

60530 ifcs<>ckthenprint"H":gosub60440:gosub60110:print'JJ|"tab(8)'||Error in data statement 

60540 fU =■ testtile 

60550 print ' BBI Do you wisti to erase the Datapoke 

60560 print' program lines (64000-) prior to 

60570 print ' saving the data statements you have " : print ' just entered? 

60580 gosub60500:q$ = a$ 

60590 ifq$ = " n " thenprint:printtab(1 5) "D ■ DNo0. " :gosub60750:gosub60620:goto60650 

60600 ifq$ = "y'orqS - chr$(1 3)orq$ = " ' thener = 1 : print:gosub60620:goto59999 

6061 print "^H " :goto60570 

60620 print " ^Q Enter tilenam e: "fU " Q " ; :print: prin1spc(1 8); 

60630 inputf$:iff$ - " " thenprint " Q^ " ;.goto60620 

60640 return 

60650 printchr${31 ) "060540(1 $ = " chr$(34)f$ 

60655 print"Hfe0025pO2,"(c-b)/in;prinf'f$= "chr$(34)f$ 

60660 print''^HaO6067C°:poke198,7:poke631,19:form = 11o6:poke631 +m,13:next;end 

60670print"HS|":f$= "©O;" +f$:savef$,8 

60680 print:print:verifyf$,8 

60690 ifst<>64thenprint"H Resave y|B' ;:inputr$:ifr$= >"then60670 

60700 end 

6071 rem put variables in line 1 and return to 1 20 

60720 printchr${31) ■' H60030b = " b " ;in = " in ' :d - ' d " :ck - " ck ' :k$ = " chr$(34)k$chr$(34); 

60725 print" :gO60120'' :print' rU 

60725 print-gO60120" :print' rU 

60730 gosub60320 

60740 poke198,3:poke631,19:poke632,13:poke633,13:end 

60750 rem: 'right ding' 

60760 tn = 54273:poketn + 23, 1 5: poketn,40 

60770poketn + 4,9:poketn + 5,0:poketn+3,17:1ort=1to500next:poketn + 3,16 

60780poketn,0:poketn + 3,0;poketn + 4,0:poketn + 5,0:poketn + 23,0:return 

60790 ifk$='l''then60810 

60800 kp = -(a$ = ' m ' )-2*(a$ = " , " )-3*(a$ = ^ " )-4.{a$ = " T )-5*(a$ = ' k " )-6*(a$ = 

6081 kp = -Ca$ = " X ■ )-2*(a$ = " c " )-3*{a$ = " v " )-4.(a$ = " d ■)-5*(a$ = ' f ' )-6*(a$ = 

60820 kp = kp-7*(a$ = ' u - )-8*(a$ = " i " )-9-(a$ = " o " ):ifa$ = " n " ora$ = ' h " thena$ = " " 

60830 goto60850 

60840 kp = kp-7*{a$-'e')-8*(a$='r')-9*(a$-''t'):ifa$=''z"ora$=-s'thena$="0' 

60850 ifa$ = chr$(32)thenaS = chr$(13) 

60860 ifkpX)thena$ - chr$(48 + kp) 

60870 kp = 0:return 




r):goto60820 
'g"):goto60840 
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Load & Run 



Thomas Henry 
Mankato, MN 



Start Up Machine Language Programs Just Like BASIC! 



Recently I wrote a program for the CBM-8032 in pure machine 
language. In order to run the program I had to first load it and 
then type SYS25978. Needless to say, this ghastly number is 
hardly my favorite, and as a consequence, every time 1 wanted 
to run the program I had to look back to my notes to find the 
proper SYS address. And things get even worse on the VIC-20 
or Commodore 64. Consider that you not only have to recall 
the proper SYS address, but you must also remember to load 
theprogram with a L0AD"filename\8,l- Surely there must be 
an easier way to get machine language programs up and 
running on a computer without all the hassles of special load 
instructions and forgettable SYS addresses! 



Inlroducing The "LOAD & RUN" Utility 

Good news; fhere IS a better way! Described in this article is a 
utility, called ''LOAD & RUN", which you can apply to any 
programs of your own- This utility transforms a machine 
language program into a form which can be LOADed and RUN 
just like a BASIC program. No special load instructions are 
needed, and there's no need to concern yourself with the SYS 
address. Ifyou deal with machine language as much as! do, Tm 
sure you will find this to be a real Hmesaver as well as 
brainsaver. Best of all, "LOAD & RUN" can be made to work on 
any model of PET/CBM, the VlC-20 or the Commodore 64 and 
any machine language programs you have can be easily retro- 
fitted to include this new feature. 

Let's get a general idea of the problem and how to solve it. 
Usually large machine language programs sit high up in mem- 
ory far away from the start of BASIC. Somehow we have to load 
the program like BASIC and then transfer it up to its proper 
place. Finally some sort of automatic SYS should occur which 
will start execution of the code. Hence, we will transform the 
code so that it sits low in memory {where it can be loaded like 
BASIC), and include a small machine program which transfers 
the code back up to where it belongs and then executes it. 



How "LOAD & RUN" Works 

The assembler listing shows the program which will accom- 
plish all of these tasks. The listing looks complex, but (his is 
because many comments have been included. (Skilled ma- 
chine language practitioners will find everything they need to 
know in the listing alone and may skip ahead, but beginners 
should keep reading here for more details.) Actually the code is 
a mere 42 bytes long! Since the program is so short and yet 
useful, machine language tyros will hnd this to be a great 
learning experience as weil. 

Let's get an overview of the program, leaving the listing to 
supply the details. In lines 00015 through 00040 you will find 
the equates for the various types of Commodore computers. 
Simply pick the set of equates which apply to your machine. 
{For the purpose of example, the code was assembled using the 
PET/CBM 4.0 ROM equates). Note that the actual program 
starts at address $0401 which is where a BASIC line would start 
in memory. What we do is create the BASIC line: 

10SYS1037 



To effect this we need a pair of link bytes, a pair of bytes for the 
line number, the token byte for SYS, then the ASCII representa- 
tion for "1037", followed by three zero bytes. When this BASIC 
line is run, a SYS1037 occurs, which transfers control to 
address 1 037 ($040D in hexadecimal). $040D is the address of 
the machine language module entitled '1NIT" (line numbers 
00061 through 00074 in the assembler listing). By the way, the 
number 1037 will work for VIC-'20^s with the 3K expander 
added but will have to be changed to 4 1 09 for the stock VlC-20 
and 462 1 for ViC s with 8K or more of extra memory- Use the 
number 2061 for the Commodore 64. These numbers differ, of 
course, since each of the three machines has a different address 
for the start of BASIC, 

The module entitled "INIT" contains all of the code needed to 
transfer a program up to its proper place. Essentially you set a 
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pointer to the start of the code to be moved, another to the end 
address plus one. and still another to the end address pius one 
of the code's final resting place. Next you call a subroutine from 
your computer's ROM which does the actual moving of the 
bytes. Finally you jump to the start of the program once it is in 
place. 

With all of these details, lets not lose sight of the original 
problem. Notice how we have a BASIC line followed by the 
'1NIT" module, which is itself followed by the program to be 
moved. That is. all of the code is now contiguous and at the 
start of BASIC. Thus it is possible to load the entire lot as a 
single BASIC program (no LOAD " filename " .8, 1 is needed). If 
this still seems unclear to you, refer to the assembler listing 
which is heavily annotated and provides many details. 



Using "LOAD & RUN" in your own programs 

Well, enough theory; let's see how to actually use this little 
marvel! Here's a checklist of what's needed to retrofit a pro- 
gram: 

(I) Obviously we need a machine language program to change. 
This can be a game, utility, word processor or whatever 
program you wish to work over. It can be a commercial 
program or one that you have entered yourself. 

(2} Next you will need some sort of extended machine lan- 
guage monitor- If you own a PET/CBM, any of the public 
domain monitors like Supermon or Micromon will do the 
trick. (Versions of Supermon for all machines can be found 
on any Transactor disk.) VlC-20 users also have access to 
these two monitors as well as commercial equivalents like 
VICMON or HESMON. Commodore 64 users can use the 
public domain Supermon or the commercial HESMON 
package. Whatever monitor you use, it makes no differ- 
ence, as long as you have access to the "A", ''M" and "T" 
commands (assemble, memory dump and transfer, respec- 
tively). 

To modify your machine language program so that you can 
LOAD and RUN it like BASIC, simply follow these steps- For the 
sake ot discussion, it is assumed that you will be doing this on a 
PET/CBM with 4.0 ROM's. The steps are similar for other 
Commodore computers and any variations in the procedure 
will be mentioned later on, 

(1) First off, load in the extended machine language monitor of 
your choice. You may use a cartridge, tape or disk-based 
system, as long as it supports the "A", "M" and 'T" com- 
mands, 

(2) Now assemble the code of "LOAD & RUN" using the *W 
and "M" commands of your monitor. Start at address 
$0401 and continue through to address $042A. At this 



point you still won't know the addresses of "MLE" or 
^^NEWADD", (in the instructions at line numbers 00065, 
00067, 00069 and 00071) so just put in dummy bytes for 
the moment. Likewise, the address of ''RUN" in line num- 
ber 00074 is^ still unknown, so again just put in two bytes to 

hold the place. We will come back and change these 
instructions in a later step. 

(3) Load in the machine language program to be changed, 
(Make sure that it doesn't overwrite your monitor!) Make a 
note of its start address and end address. The end address 
plus one is ''NEWADD". so go back to line numbers 00069 
and 00071 and replace the dummy bytes with the true 
address. Likewise the start address of your program be- 
comes the address of "RUN", so go back and replace the 
two dummy bytes with the true numbers, (See step (2), 
above). 

(4) Now using the "T" command, transfer the entire program 
which you loaded in step (3) so that its first byte falls at 
address $042B. (This is the first free byte following "LOAD 
& RUN".) Note the address of the last byte of the transferred 
code and add one to it. Using this number, go back to 
"MLE" in line numbers 00065 and 00067 and change the 
dummy bytes accordingly. (See step (2)). 

(5) We're almost done! Now that we know the true address of 
"MLE", stick that number into locations ($2A), ($2C) and 
($2E), Remember, in 6502 machine language, the low order 
byte comes first, followed by the high order. So, for exam- 
ple, if '^MLE" is $3 1 20, you would put the $20 in $2A, $2C 
and $2E, and the $31 in locations $2B, $2D and $2F. 

(6) Now leave the monitor with the '*X" command, thus 
returning to BASIC. Save the program, using an ordinary 
SAVE to either tape or disk. Since we set the pointers in 
step (5) to point after all of the machine code, everything 
will automatically be saved, ready to just LOAD and RUN. 
Simple, isn't it! 

And that's all there is to it. While the instructions may have 
seemed long-winded, in actuality the process is quite simple. I 
have modified all of my machine language programs to the 
"LOAD & RUN" format now, and it has never taken more than 
two minutes at most to complete the conversion. 



A Few Words To VIC-20 And C-64 Usera 

VIC-20 and Commodore 64 users can apply this same process 
with just a tew modifications. First, be sure to use the proper set 
of equates for your machine. Next, the locations mentioned in 
step are ($2D). ($2F) and ($31) for both the VIC-20 and 
Commodore 64. Finally, recall that C-64 users will start their 
assembly at $0801 and VIC-20 people at $0401, $1001 or 
$1201 depending on the amount of extra RAM added to the 
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system. And don't forget to change the ASCII code in line Listing 1: AssemblerCodeforthe "LOAD&RUN"conversion 
number 00052, as mentioned above. (Add line numbers if using the PAL assembler,) 



Since the VIC-20 has so many different memory configura- 
tions, be sure to use the correct addresses for the correct 
amount of memory. Clearly, a "LOAD & RUN" program de- 
signed for a stock machine won't work on an 8K machine, etc. 
If you need a more high powered system which does take into 
account any extra memory add-ons, check out Jim Butter- 
field's excellent utility, "Machine Language Auto- Location", 
(COMMODORE MAGAZINE. June/July 1982, pp. 82-84) and 
also see my letter to the editor on the same subject (COMMO- 
DORE MAGAZINE. March 1983, p. 23). 

The LOAD & RUN Generator Program 

This is for disk drive users. If you have a few programs you wish 
to convert and don't want to repeat the above steps over again 
for each one, or if you're having trouble with the conversion 
process, try the BASIC program in Listing 2. h will ask for the 
filename of the program you wish to convert to a ''LOAD & 
RUN'' program, the length of the program, and the SYS ad- 
dress. With that, it will generate a program on disk, using the 
same filename with the characters *'LR." appended to the 
beginning. 

If you're not sure of the length of the program you wish to 
convert, it usually won't hurt to err on the high side. To get an 

idea of the program's length, look at the number of blocks it 
occupies in the disk directory and multiply the block count by 
254, That should be sufficient in most cases, except where the 
program lies immediately beneath a sensitive area of memory 
that must not be destroyed by the LOAD and RUN. 

The version of the LOAD and RUN generator listed is for the 
C64. Make the indicated changes for PETs or VIC-20s. 



Final Thoughts: Why Use "LOAD & RUN'7 

As mentioned, it only takes a minute or two to convert any 
machine language program to a '*LOAD & RUN" format, but 
some people may still consider this to be a needless hassle. So 
why do it? Well, if you're like me and have lots of machine 
language programs kicking around, you will definitely appreci- 
ate not having to remember a myriad different SYS addresses. 
And the ability to load a program on a VIC-20 or C-64 just like 
BASIC really simplifies things too. 

But perhaps the best advantage is that beginners using your 
programs won't have to learn any new commands to get a 
program up and running. If you have children who use the 
computer they will appreciate this and in general, newcomers 
to the computer keyboard wili teel far less threatened using 
machine language programs if they can LOAD and RUN them 
just like BASIC, 
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'load & run' 
a machine language boot-up aid 

for the pet/cbm, vic--20 and c-64 

thomas henry 

249 norton street 

mankato, mn 56001 
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)k:h 



* equates for pet/cbm with 2.0 or 4.0 roms*** 



newendaddress+1. 

oldendaddress+1- 

old start address. 

start of basic. 

block move routine — 4.0, 

change to $c2df for 2.0 roms. 



newend 


- $55 


odend 


= $57 


dsta 


= $5c 


base 


= $0400 


move 


= $b357 



♦♦♦ equates for vic-20 *** 



newend = 


-- $58 


;newend address-*- 1. 


dend 


= $5a 


;old end address -t-1. 


odsta 


= $5f 


iod start address. 


:jasic 


= $1000 


;start of basic, stock vie 


move 


= $c3bf 


;b ock move routine. 



*** equates for the commodore 64 *•* 



newend - 


$58 


;new end address + 1 


oldend = 


$5a 


;odendaddress+1. 


dsta = 


$5f 


;o d start address. 


basic 


$0800 


; start of basic. 


move 


$a3bf 


;b ock move routine. 



this next block of code creates 
the basic program- 1 sysl 037 



* = basic +1 



.word link 
.word 10 
.byte$9e 
byte '1037' 
;(.asc '1037' for PAL assembler) 
.byte $00 ;end of line byle. 



forward link byte, 
line number ten. 
token for 'sys'. 
address of 'init' in ascii. 
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link 



.word $0000 ;end of program mark. 



now comes the routine to move the machine 
language program into its proper place. 



init 



da 


^<ms 


;set pointer to start 


sta 


odsta 


;of code to be moved- 


da 


#>mls 




sta 


oldsta + 1 




da 


#<mle 


;set pointer to end + 1 


sta 


odend 


;of code to be moved. 


da 


#>mle 




sta 


dend + 1 


^ 


da 


#<newadd 


;set pointer to end + 1 


sta 


newend 


;of new address for code. 


da 


#>newadd 




sla 


newend + 1 




sr 


move 


;go move code into p ace 


rnp 


run 


;gorun code. 



here follows the block of code which is 
to be moved into position, this is the 
portion you supply for your own application. 



m!s = * 

start of code which is to be 

moved into place. 

{block of code goes in here) 



;'mls' is the address of the 



;'mle' is the address of the 



mie = • 

next byte beyond the end of 

the code. 

newadd = $8000 



'newadd' is the address of the next byte 
beyond the last byte of the code, after 
it has been moved into its final position, 
$8000 is used here merely as an example. 



run 



newadd-mle + mis 



'run' is the start address of the 
code after it has been moved into its 
proper place, (usually in high ram). 

.end 



Listing 2: BASIC program lo create "LOAD & RUN" program on 
disk 
C64 Version; see below for VIC/PET modifications 



EE 

IB 

NE 

CM 

KA 

OH 

GC 

FN 

EE 
CD 
MB 
BO 
PC 
NM 
EN 
PL 
HM 
FC 
PG 
CE 
GM 
OP 
Dl 
OL 
HF 
KN 
Fl 
Fl 
BE 
AP 
LC 
FB 
GE 
LG 
HN 
DE 

PC 



1 00 rem load&run file creator 

11 dim s%(7) 

120 input "filename " ,f$ 

130 input" program length"; pi 

140 input" sys address ";sy 

150open1,8,12,f$+",p,r" 

1 60 gei#1 ,a$,b$- rem start address 

1 70 si = asc{a$ + Ghr$(0)):s2 = asc(b$ + chr$(0)) 

:sa-s1 +256-S2 
180bs = 2048:ptrs = 43 
190: 

200 mis := bs + 43 :rem source start 
21 me = pi + mts + 1 :rem source end 
220 na = sa + pl + 1 : rem destination end 
230 s^/olO) = mis and 255 
240s%(1) = mls/256 
250s%(2)-meand255 
260 s%(3) = me/256 
270nl% = na/256 
280s%(4) = na-256*n|o/o 

290 s%(5) = nl% 

300 syo/o = sy/256 

310s%(6) = sy-256»sy% 

320 s%{7) = syo/c 

330; 

340 data 1 1 , 8, 1 0, 0, 1 58, 50, 48, 54, 49, 

350data 0, 0,169, -1,133,95,169,-1 

355 data 133, 96, 169, -1,133,90, 169,-1 

aeOdata 133, 91,169, -1,133,88, 169,-1 

370 data 133, 89, 32,191,163,76, -1,-1 

380: 

390 open 2,8,1 1 , " @0:lr. " + f$ + " ,p,w " 

400c = 0:bs = bs + 1 

410 print#2,chr$(bs and 255)chr$(bs/256); 

420 fori = 1 to42:read a;ifa = -1 thena = s%(c):c - c + 1 

430print#2,chr$(a);:next 

440 fori - Otol :get#1 ,a$:s = st:print#2,left$(a$ 

+ chr$(0),1);;i = s:next 
450 closel : close2: end 



Ctianges to make for PET/CBIVI BASIC 2.0/4.0 version: 

180 bs= 1024: ptrs = 40 

340 data 11, 4, 10. 0,158,49,48,52,55,0 
350 data 0, 0,169,-1,133.92,169,-1 
355 data 1 33, 93, 1 69, -1 . 1 33, 87, 1 69, -1 
360 data 1 33, 88, 1 69, -1 , 1 33, 85, 1 69, -1 
370 data 133, 86, 32,87,179,76,- 1,-1 
(replace 87, 1 79 with 223, 1 94 for BASIC 2.0) 

Changes to make for VIC-20 (standard configuration) 

180bs-4096:plrs = 43 

340 data 11, 8,10,0,158,52,49,48,57,0 

370 data 133. 89, 32, 191 , 195, 76, -1 , -1 
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Extra EPROM 
Space for PETs 



F. Arthur Cochrane 

Jackson, SC 



The average PET user probably has some lype on ROM or 
EPROM plugged into the extra sockets inside his PET. This 
firmware can be commercially bought or programmed by the 
user. On PETs with 12 inch screens there are only two empty 
sockets at USl 1 and US! 2. When these are full the user can get 
a multiple socket ROM switcher such as a Sockel-Me-Two or 
Spacemaker IL 

On these machines if the user needs some ROM space in 
addition to the two sockets there is 1 3/4 K space for machine 
language programming- This extra memory is at addresses 
$E900 to $EFFF which is not currently used by the PET The 
easiest way to use this ROM space is to remove the 2K BASIC 
ROM at UD7 {the only BASIC ROM on a socket) and replace it 
with a 4K EPROM (such as a 2532). The 2K BASIC ROM's 
contents will have to be transferred to the lower 2K of the 4K 
EPROM and then any machine code the user may wish can be 
put into the upper 1 3/4 K of the EPROM . The EPROM can then 
be plugged into the UD7 socket. When the PET addresses the 1/ 
chips in locations $E800-$E8FF the EPROM will not be 
enabled because Commodore added logic on the newest PETs 
to not enable the UD7 socket for this address range. The PET 
thus has the following pattern fur the address space SEOOO to 
SEFFF: 

$E000to$E7FF UD7 socket (BASIC ROM) 

$E800 to $E8FF I/O chips (6520s, 6522, and 6545) 

$E900to$EFFF UD7 socket (user defined) 

This modification will not work however if an expansion is 
made to the PET that uses the NO ROM pin on the expansion 
port (pin J4-20) to disable the BASIC ROMs. NO ROM is 
connected to pin 21 on all the ROM sockets and is normally 
pulled to plus five volts. Pin 21 on ROMs is a high enable chip 
select so when NO ROM is pulled to ground (zero volts) the 



ROM is disabled. However on EPROMs, pin 21 is for program- 
ming voltage and for normal operation it must be held at plus 
five volts. Also note that EPROMs plugged in the two empty 
sockets (UDI 1 and UD12) of the PET will be affected in the 
same way if the NO ROM pin is pulled to ground. The Super- 
PET probably uses NO ROM to disable BASIC and enable the 
6809 's operating system. 

Small screen PET users will not be able to use this technique on 
their PETs because if an EPROM were to be plugged in at the 
$E000 address range it would be enabled in the $E800 to 
$E8FF address range at the same time as the I/O chips. The 
enabling of the EPROM and I/O chips at the same time would 
cause false data to be read or written to the I/O chips. Also small 
screen PETs do not have the NO ROM pin on their expansion 
port so pin 21 on all the ROM sockets is always held at plus five 
volts- 

I hope PET users can use this information to expand their PETs 
to fill their needs for firmware program storage 

i have modified the 2K extended monitor Extramon to fit into 
the $E900 to $EFFF address space of the 8032 and Fat 40. 
Extramon had to be reduced slightly to fit into 1 3/4 K and the 
following compromises were made. The Fill command was 
removed, the Hunt with don't care and Hunt for an ASCII string 
was removed (Hunt for ASCII characters with the HEX equiva- 
lent), the J' key (finish execution of a JSR command) was 
removed from the Walk command, and the repeat key function 
was removed (this is now normal for cursor keys on the 8032 
and Fat 40), All other commands remained the same. This E- 
ROM.MON source code for the MAE assembler is available. 
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A Really Cheap 
Multi-Channel Analogue 
Input for Micro Computers 



Harold Anderson 
Oakville, Ont. 



Here is a really cheap way to equip your micro computer to read and 
monitor voltages, I have been using this circuit for several years to 
make my PET operate as a versatile six channel strip chart recorder 
(in conjunction with a printer of course). 

The only major component of the circuit is a Motorola MC14447 
integrated circuit which costs about $4.00 in single quantities. This 
device has six input channels, effectively infinite input impedance 
andatypicalpotentialaccuracy of 0-05%. 

This IC can be interfaced easily to virtually any microcomputer which 
has a parallel port; even a parallel printer port would do. This article 
gives the software to run them from the Parallel Users Port of a 
Commodore PET. 

The A to D converter shown in the accompanying circuit diagram is 
able to measure voltages in the range of to 2.5 volts with an accuracy 
of 0,5 millivolts. Since the input impedance is effectively infinite, 
higher voltages can be measured easily by first putting them through a 
simple voltage divider made from two resistors. 



How the MC14447 Should Be Used 

The MCI 4447 is a somewhat unconventional A to D converter in that 
it depends on the intelligence of the computer to compensate for its 
own shortcomings. Without a computer capable of simple arithmetic 
it would be almost useless. The chip really has 8 input channels, but 
two of these are permanently dedicated to two reference levels. As 
shown in figure \. the first reference level is zero volts and is 
internally connected to channel zero. The second reference level is 
2.5 volts (or something close to that, provided that it is stable.) and is 
normally connected to channel 7. That leaves 6 channels for measur- 
ing unknown voltages. When the chip is used, the computer measures 
al) eight channels in quick succession. The answer or count, which 
the computer gets for each channel, is linearly related to the voltage 
on each channel This linear relationship can be expressed by the 
following formula: 



where: 
n 

CT(n) = 
V(n) ^ 
Z 

s 



CT(n} - Z + SXV(n) 

the channel number 

the answer or count that the computer got for channel n 

the voltage on channel n 

the zero offset (a constant) 

the slope of the linear relationship (a constant ) 



Immediately after the the 8 channels have been measured, CT(0), 
V(0). CT(7) and V(7) are all known. (Remember V(0)=0 and V(7)= the 
reference voltage). This allows us to solve the two equations in two 
unknowns to find the value of the constants Z and S. Once Z and S 
have been calculated, the other six voltages can be found from the 



values of CT(n}. This mathematical procedure sounds more compli- 
cated than it is, as the following solution to the problem shows. 

Z = CT(0) 

S = [CT(7)-CT(0)]/[V(7}-V(0}1 

V(n) = [CT(n}-Z]/S 

As you will see from lines 900. 920 and 940 of the BASIC listing 
accompanying this article, the value of all of the 6 unknown voltages 
can be found from a BASIC program containing less than 80 charac- 
ters. 

S and Z should be recalculated each time the device is used since they 
vary slowly as the temperature of the chip changes. S and Z also are 
dependent on the particular chip used and the values of the resistors 
and capacitors used. When the computer recalculates the value of S 
and Z each time, and then uses the new values to find the voltages, it 
is in effect compensating for the changes in S and Z. Since changes in 
S and Z are compensated for, it allows us to use very imprecise 
components in the circuit. The only things in the circuit which need 
be precise are the reference voltage and the linearity of the relation- 
ship between CT(n) and V(n)- Motorola guarantees the non-linearity 
to be .2% of full scale maximum and .05% typical. 



How The IWC 14447 Work* 

Afunctional block diagram of the MCI 4447 is shown in figure l.The 
MC14447 chip is somewhat of a cross between a sample and hold 
network and a conventional dual slope A to D converter (Dual slope 
converters are used In most digital voltmeters). It is controlled by 4 
digital input lines. Three of these lines are used to select the channel 
being measured (AO, Al and A2). The other line, called the ramp start 
or ramp/sample line, sets the chip in either sampling or in timing 
mode. 

When in use, the computer first selects the channel to be measured 
using the three channel address lines. The computer then sets the 
ramp/sample line low. connecting the selected input channel to the 
ramp capacitor. An offset built into the internal buffer amplifier causes 
the ramp capacitor to be charged to a voltage slightly higher than the 
actual input voltage. (The time required to charge the capacitor 
depends on the size of the ramping capacitor; 1 used 6.4 ms. The 
length of time is not critical provided that it is long enough.) Once the 
ramping capacitor is charged, the computer sets the ramp start line 
high, breaking the connection between the input voltage and the 
ramping capacitor. An internal current source causes the capacitor to 
discharge in a very linear fashion. The higher the initial voltage on the 
ramping capacitor, the longer it takes to discharge. 

The voltage level on this capacitor is monitored by a comparitor. 
When the capacitor is discharged to about 0.27 volts the output of the 
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comparitor swings low. The computer monitors the output of the 
comparilor and times the period between the start of the ramp (ramp/ 
sample line set high) and the end of the ramp (comparitor output goes 
low). The length of this period Is the computers initial measure of the 
voltage on the input channel and is, in fact, the CT{n) referred to in the 
previous section. 



To abbreviate, the sequence to time one channel would be as follows: 

1 . Select input channel by setting the ievels on the channel select lines 
A0,AlandA2. 

2. Transfer the voltage on the selected channel to the ramping 
capacitor by setting the ramp/sample line low. 

3. Disconnect the capacitor from the input voltage by setting the 
ramp/sample line high. 

4. Time the discharge of the capacitor by measuring the time until the 
comparitor output line goes low. 

Supporting Software 

The software which I wrote to operate this chip was written partly in 
BASIC, and partly in 6502 machine language. I have included the 
listings for both parts in this article. 

The method of timing the ramp, as mentioned in the previous section 
Is a matter of user preference. The method which I used on the PET 
was probably the simplest and best for most applications. 

1 wrote a short machine language program to time the ramp. The 
program runs in a tight loop during the timing operation. During this 
part of the program the X and Y registers are treated as a 16 bit 
counter. Each time the program goes through the loop it uses up 15 
microseconds, increments the 16 bit binary counter, and checks the 
value of the comparitor output. When the comparilor output goes low. 
the 1 6 bit counter contains a binary number proportional to the length 
of time taken for the ramp capacitor to discharge. 

Since 1 had to write a machine language program anyway, I also wrote 
sections to select the eight input channels in sequence and park the 
resulting counts in RAM for use by the BASIC part of the software. The 
machine language part also initialized the parallel port so that bit 7 
was an input (connected to the comparitor output) and the other bits 
were outputs, (bits 0, 1 and 2 control channel selection and bit 4 
controls the ramp start). This pari of the program would have to be 
rewritten to match the configuration of the type of computer which 
you are using. The PET parallel user port happens to be a 6522 VIA 
mapped at addresses $E840 to $ES4F. 

The BASIC part of the software retrieves the counts from the count 
table starting at $0340 (put there by the machine language portion of 
the program) and converts these counts to voltages. The BASIC 
program then prints the voltages and time on the screen. Lines 480 to 
510 calculate the time lost to the PET clock as discussed later. At line 
570 the program waits for the operator to hit a key before repeating 
the program. 

Speed 

This program limes the ramp in 15 microsecond increments, 15 
microseconds being the time to get through the timing loop once. In 
order to measure voltages with a resolution of one part om 5000, you 



must have a count of 5000 for a the highest input voltage(about 2.5 
volts, Ifeach count consumes 15 microseconds then the time for 5000 
counts is .075 seconds. Lower input voltages give correspondingly 
shorter counts. If the average voltage on the input channels is half of 
the maximum of 2.5 volts then the average count time will be about 
,0375 seconds and the total time to time all 8 channels will be 8 X 
.0375, or ,3 seconds. 

The counts obtained by the machine language program are most 
easily converted to voltage by using a higher level language, such as 
BASIC, Pascal, Fortran etc. In my case ! used BASIC. It takes the BASIC 
interpreter in the Commodore PET about .4 seconds to convert the 8 
counts to voltages. 

Thusthetotal time to obtain the voltage on all of the channels is about 
.7 seconds. This is not exactly blistering speed, but it is plenty fast 
enough to keep up with most laboratory experiments and industrial 
data logging applications. It will talce longer to print the the voltages 
than it does to measure them. 

■t 

Much greater speed but poorer resolution can be obtained by reducing 
the size of the ramping capacitor. This allows the ramping capacitor to 
charge and discharge faster. 

If some of the channels are not used, time can be saved by not 
performing the counts and converting the counts to voltages only on 
the channels that are used. 



Notes and Suggestions 
RE: "Soft" Real Time Clocks 

You will notice from the machine language listing included in this 
article, that the interrupt is disabled during the machine language part 
of program. This is done to ensure that the processor will not Lie pulled 
off the timing function by an interrupt signal while it is timing the 
discharge ramp. On the PET, a time-keeping routine or "software 
clock*' is driven by the interrupt signal Disabling the interrupt signal 
effectively stalls the clock during the timing operation. In order to 
correct the clock for the time lost during the timing operation, I wrote 
the BASIC program to keep a running total of the time lost during the 
machine language part of the program. (Each single count takes 15 
microseconds and each sample time is 6.4 milliseconds.) This total- 
ized correction Is added to the apparent time to get the real time. 

RE: Negative Voltages 

This chip is basically designed to measure positive voltage only. You 
will in practice get meaningfull answers for slightly negative voltages. 
Just how far negative you can go depends on the particular IC you 
have, but most will measure -,05 volts. If the input voltage gets more 
negahve than thai you will have trouble with the power supply 
current (as mentioned later) and the ramping capacitor voltage never 
getting high enough to switch the comparitor. 

RE: Over Voltages 

The MC 14447 is a CMOS IC and like all CMOS ICs It objects strongly to 
having its inputs driven appreciably above the voltage of the positive 
power supply or below the voltage of the negative power supply. Over 
and under voltages activate parasitic transistors within the chip 
causing high power supply currents and some-times logic mistakes. If 
you expect to have over or under voltages we suggest that you put a 
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iOOk resistor in series with the input of each channel (as has been incorporate the measuring program as a subroutine in a larger 
done in the accompanying circuit diagram). program. 



RE: Power Supply "Ha«h 



tfl 



[f you decide to build one of these A to D converters using the + 5 volt 
power supply from your computer be sure that you filler all of the 
''hash" out before applying it to the positive power supply pin of the 
MC14447. Transient spikes will cause problems with the comparilor 
and buffer amplifier inside the chip, leading to serious inaccuracies, 

RE: References 

In the circuit diagram accompanying this article a 78L05 voltage 
regulator is used for both a power supply and the reference supply- 
These regulators are quite stable enough for most applications. If you 
are fanatical about stability, use an LM 1 36 (a 2,5V precision reference) 
in place of R3. 

RE: Input Variations 

The volmge which this device actually measures is the voltage on the 
input at the instant the ramp start line goes high. If the voltage that 
you are measuring is noisy or has ripple on it and you wish to measure 
the DC component only, you should put a resistor and capacitor filter 
on the input to filter out the AC component. This is what I did in the 
circuit shown as figure 2. The resistor can be the same one that you 
may want to use to prevent overvoltage inputs. 

RE: Common Ground 

Notice that this circuit has a common ground with the computer. As a 
result one side of all the voltages which you measure will also be 
connected to the common of the computer, it is probable that sooner 
or later you will make a connection mistake and wire the common of 
the A to D converter to some voltage signal with enough current 
capacity to destroy the printed circuits in your computer. To prevent 
this I have fused the ground link. Now the fuse will melt instead of the 
ground tracks on your computer circuits. I would suggest a i/2 amp 
fast blow fuse. 

If this common ground is an intolerable situation, 1 would suggest that 
you put opto isolators in the 5 signal lines that run between the 
MCI 4447 and the computer- This will allow you to "float" the A to D 
converter. Since none of these are high speed signals, the sluggish- 
ness of the opto isolators will not be a problem. 

Opto isolation opens up other improvement possibilities. First you 
can run the MC14447 with a 15 volt power supply. This allows an 
input range of to 12 volts. A further extension allows the measure- 
ment of both positive and negative voltages. Use a 15 voh power 
supply and a 6 volt reference tor the MC14447. If the reference input 
totheMCl4447iscalledcommon, the negative power supply pin will 

beat -6 volts- The MC14447 can now except inputs running from -6 
volts to 4-6 volts. Use exactly the same software as 1 have shown 
except use the channel 7 input for the zero reference and channel 
for the reference voltage input. In this case the reference is -6 volts. 

RE: The Program Accompanying This Article 

The program accompanying this article merely measures the voltage 
on all channels and then prints the results and time on the screen. In 
practical applications you would probably wish to have the computer 
do something useful with the voltages. In this case you would 



I have located the machine language portion at $6000 and poked the 
appropriate locations in the PET operating system to prevent the Basic 
interpreter from overwriting the machine code. Similar things would 
have to be done on other types of computers, 

[f you plan to use this converter regularly you might consider putting 
the machine language portion of the program into an EPROM. 

RE: The Circuit Accompanying Tliia Article 

The circuit diagram (figure 2) accompanying this article is more 
sophisticated than really necessary. You could eliminate the pilot 
light, fuse, and input filters. You could also use a 9V radio battery to 
supply the voltage regulator instead of the transformer driven power 
supply. It you are planning to use the circuit as a real tool, however, I 
would suggest that you include all of these features. The circuit as 
drawn is easy to use and relatively fool-proof. 

RE: Commodore 64 

If you are going to use one of these on a Commodore 64 don't forget 
that the video chip is constantly interrupting the 6510 processor in 
some modes of operation. This will lead to liming inaccuracies unless 
corrective steps are taken, f^oti caf? /urn o//r/7e t^/deo c/?/p fey c/^on>7g 

bit 4 of location 53265. -T.Ed) 

I invite anyone to write me regarding this or other electronic projects 

Harold Anderson Electronics Ltd,, 

226i Bethnal Green Road, 

Oakville, Ont.. 

L6J 5J8. 

Phone (416) 844-0632 

Analogue to Digital Circuit Programs 



IB 

KD 

CO 

LL 
BM 

FN 
IG 
FK 
NB 

BF 
FD 
GE 
NG 
NB 
OP 
KE 
IH 
NL 
PK 

BF 
AK 
NO 



100 goto 270 

110 program name = analogue 12 

1 20 analogue input demonstration for commodore 

pet computers 
1 30 use motorola mc14447 chip 
1 40 complete sample and correction time for all 

8 channels = .7 sec 
150 routine uses basic and machine code 
1 60 machine code does timing, etc. 
1 70 baste does conversion of counts to voltages 
180 on commodore petti = time since power-up 

multiplied by 60 
190 ti is used as a clock 
200 written by ; 
210: 

220 ' Harold Anderson Electronics Ltd. 
230 ^2261 Bethnal Green Rd., 
240 " Oakville, Ontario, Canada, 
250 "LeJ-SJS, (416)844-0632 
260; 

270 gosub 600: rem poke machine code into ram 
280 poke 53,96; rem top of ram pointer for basic set lo 

$6000 to protect 
290 tc = ti/60: rem correction for time at program start 
300 vf = 2.529; rem vr = reference voUage 
310 dim v(8),ct(8),c{8): rem v{x) - volts ct(x) = count . 

c(xj = c niJnt-7PrnnffRRt 
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EF 


320 pi- 3*256 + 4*T 6; ph = pl+l: rem pi = start 


GJ 


, 270 ;— entry point from basic 








address of count table 


AA 


280 enter sei 


jblock interference in liming 




OL 


330: 


FE 


290 Ida #$00 






KH 


340 rem = - go to machine language for counts = = 


OP 


300 sta Chan 


;set channe counter to 




LD 


350 sys 6*4096: rem routine to time ramp tor all 


IC 


310 i— program paraie port 








eight voltage channels 


EL 


320 ;bits to 6 output, bit 7 input 




MN 


^ 360: 


KN 


330 Ida #$7f 






GM 


j 370 rem = = transfer counts to basic variable ct(x) = = 


ML 


340 sta ddr 






IB 


380 for X = to 7: ct(x) = 256*peek(ph + 2*x) 


FK 


350 ;— restart point for channe measurements — 






+ peek(p + 2*x): next x: rem get counts 


EN 


360 measurelda op 


;set channe address bits 




KP 


i 390 : 


PG 


370 and #$f0 






CM 


400 rem = = convert counts to voltages = = 


PF 


. 380 ora chan 






KF 


■ 410z = ct(0): for X = to 7: c(x) = ct(x)-z: nextx 


NJ 


390 sta op 


;outpul port 






1 : rem remove zero offset 


KA 


i 400 ;— samp e output — 






CH 


420 s ^ c(7)/vr: rem slope 


Dl 


' 410 load Ida op 






NH 


430 for X = to 7: v(x) = c(x)/s: next x 


FA 


420 and #%11101111 ;set ramp start low 




MC 


440: ■ 


DE 


' 430 sta op 






CP 


450 rem = == print voltages = = 


10 


I 440 Idy #$00 


;6.4 msdeay 


1 


PH 


460 for X = to 7: print " # " ;x; " " ;v(x)i " vo ts " ; next x 


FF 


I 450 Idx #$05 




i 
1 


KE 


470: 


BF 


460 loopl dey 


;start of loops 


1 
1 


EE 


480 rem == calcu ale time lost while interrupt 


BE 


: 470 bne loopl 


;end 5 microsec loop 






mask set = = 


HJ 


1 480 dex 






GP 


490 lor X = to 7: tl = tl + .0064 + ct(x)* 1 5e-6; next x 


II 


i 490 bne loopl 


;end 1 280 microsec loop 


J 




: rem running tt of time ost 


Jl 


500 ora #%00010000 


i 


ND 


500 rem .0064 = time to sample 


NF 


510 sta op 


jsetramp start high 




JA 


510 rem ct(x)-15e-6 = time to time ramp 


JA 


520 i— time ramp — 






MH 


520: 


Kl 


530 Ida #$00 


;setx&ytozero 




DG 


1 

; 530 rem = = print time = = 


MM 


540 tax 


;x&y used as 16 bit counter 




PN 


540l = ti/60 + ll-tc: print"timeinseconds = ";t 


FP 


550 tay 






KJ 


550: 


IM 


560 Ida #%10000000 




OH 


, 560 rem = = get signal for new sample = = 


BP' 


570 ;15 microsecond counting loop 




GO 


570 get c$: if c$ = ""' then 570: rem hit any key 


FK 


580 cop nop ;two nop compensate for dif in 




DP 


580 goto 350 


AN 


590 nop 


;in carry and no carry times 




CM 


590; 


EG 


600 sloop and op 


;check comparitor output 




OJ 


600 for j = 24576 to 24668: read x: pokej.x: next: return 


BO 


610 beq storec 


■ 




GN 


610: 


: IE 


620 inx 






IH 


620data120, 169, 0,133,188,169,127,141 


j FF 


630 bne Hoop 






LI 


630 data 67,232,173, 79,232, 41,240. 5 


AG 


640 iny 






HF 


640 data 188, 141, 79,232,173, 79,232, 41 


AH 


650 bne sloop 






PJ 


650 data 239, 141, 79,232,160, 0,162, 5 


KN 


660 brk 


jtrouble, count too big 




CB 


660 data 136, 208, 253, 202, 208, 250, 9, 16 


JC 


670 ;— store count — 






HG 


670data141, 79,232,169, 0,170,168,169 


LK 


680 storec stx count 






JM 


680 data 128. 234, 234, 45, 79,232,240, 7 


LA 


690 sty count +1 






IK 


690 data 232, 208, 246, 200, 208, 245. 0, 134 


IJ 


700 store Ida Chan 


;set X = twice channel 




MA 


700data186, 132,187, 165, 188, 24, 10,170 


MD 


710 cc 






IH 


710data165, 186, 157, 64, 3,165,187,232 


LH 


720 asl 






FF 


720 data 157, 64, 3,230,188,165,188,201 


FK 


730 lax 






GF 


730 data 8,208, 175, 88, 96 


GE 
AF 


740 Ida count 
750 sta park,x 


; get low byte 
;park owbyte 














DD 
CA 


760 Ida count + 1 
770 inx 


igethigh byte 
;parkhigh byte 




CM 


100 program to operate mc14447a/d converter- 




FD 


1 1 iintertaced to commodore pet 


C 


780 sta park,x 






LE 


120 ;(6502 machine language) 


DN 


790 inc chan 


;select a new input channel 




IP 


130; 


GF 


800 da chan 






LH 


140 ;— assign labes — 


MM 


810 cmp#$08 


;check if all channels done 




F 


150*= $ba 


Nl 


820 bne measure 


;do next channel 




MB 


1 60 count • = * ;temporary count storage, 2 bytes 


KB 


830 cli 


;G!ear interrupt mask 




AH 


170* = $bc 


JD 


840 rts 


;exit to baste 




JP 


180 Chan * = * ;channe counter, 1 byte 


]M 


850; 




1 


OK 
OG 


190* = $0340 

200 park • = - ;count storage, 16 bytes 


ID 


860 .end 










JD 


210* = $e84f 








PA 


220 op • = • ;input - output port 








BA 


230 * = $e843 








GN 


240 ddr * = * ;data direction reg for port 








AH 


250; 








10 260* = $6000 
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The Plus 4 

Richard Evers, Editor 



A Quick Overview 



The Plus 4. a very peculiar creation. For many the very thought 
of it conjures up images of strange, slimy things oozing out from 
under rocks. For others, myself included, it's just right, a 
product of thought and creativity that does not deserve a rapid 
death as some have forecasted. By reading through many of the 
articles written about the new system, a few reasonable com- 
plaints do surface. But on the whole, capital punishment is nol 
the answer. 

Valid Complainto : 

The Plus 4's built in user software isn't too terrific. The word 
processor is barely that, the data base defiles the name, and the 
spreadsheet has little spread. If you were to buy the computer 
for the sole purpose of relying on this software, then you may 
have bought a very attractive paperweight. But if you bought 
the computer because it is a computer, then the software, if 
ever used, would be a handy bonus. The wordprocessor is good 
for quick little notes and simple documents, the data base is 
good for fairly basic to intermediate file keeping activities, and 
the spread sheet would stand the test of home and school use. 
Each package is well written, taking into consideration the 
limitation of trying to make them all work within the confines 
of each other. Running two packages in tandem is possible wilh 
this system, a trick yet to be performed by many other packages 
for the Commodore machines. As a final note on this 'com- 
plaint", think of the software as an almost free bonus, and 
accept its limitations. The computer more than makes up for 
the shortcomings of the software. 

The cassette port is nol compatible with any other Commodore 
cassette unit, and the cassette unit that does work with it is 
SLOWER than the others. Althou gh hard to believe, it's true._ 
Commodore cassette drives have always been slow, but it's just 
possible the new drives have been made slower for greater 
accuracy. Regardless, the new system requires a whole new 
breed of cassette tapes. To offset the bad taste this leaves, a 
good note: the 1 541 serial drive works fine with the unit. 

The joystick ports are not compatible with any other joystick in 
the galaxy, which is a pretty rude turn of events. With luck, 
somebody will invent an adapter for the machine to allow the 
use of normal joysticks, thus not forcing you to buy the new 
ones. If the Commodore joysticks available for the Plus 4 are as 
good as the ones they have released for the Vic/C64, we had all 
better hope that an adapter is invented soon. 



And Now, The Good Points : 

In short, 64k RAM with over 60k available for BASIC program- 
ming, A super improved BASIC command set that makes 
graphics, sound, string manipulation, and disk access more 
pleasant. The sound is not as good as the 64's, but can be 
programmed by the novice from within BASIC. Graphics capa- 
bilities are as good as the 64's. and can also be easily controlled 
from within BASIC, The MID$ function has also been improved 
to allow replacement of specific sections of a string, without 
major string manipulation. The following is now totally accept- 
able; 

mid${a$,5,7)= "Amazing" 

Terrific. And considering that the Plus 4 doesn't have slow 
garbage collection to worry about, string work is just fine. 

The units have a built in machine language monitor, Tedmon 
to be exact, and it's pretty good. You can assemble code in 
RAM, disassemble RAM or ROM, display and modify memory 
at will, walk routines as they would normally execute, transfer 
code from one section of memory to another, fill memory with 
the value of your choice, jump to sections of code, and quite 
simply, do pretty much of everything that the public domain 
machine monitors do so well. There is a trick with this one 
though. The transfer command isn't bright enough not to step 
on itself during a transfer of code back into the initial transfer 
area. If a slight move of code is desired that would normally 
step all over itself, transfer the code to a safe area elsewhere in 
RAM, then transfer it into the correct area for you. A little bit 
more work, but worth it for the results. Forgiving this one 
oversight, the monitor is really good, and a welcome addition 
after using the Vic and 64 without. 

The extra disk commands are actually just a sub-set of the 
original BASIC 4.0 command set. BACKUP, COLLECT, COPY, 
DIRECTORY, DLOAD, DSAVE, HEADER, RENAME, and 
SCRATCH is the sub-set in whole. BASIC 4.0 had quite a few 
more, of which I only miss one, RECORD*. Relative files are 
supported by the 1541 drive unit, and relative file handling is 
possible with BASIC 2.0 commands, albeit somewhat cumber- 
some. Of all the BASIC 4.0 commands they had to choose from, 
1 think RECORD* should have been included. To get even for 
this horrible trick, let's look at the commands given : 
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BACKUP The stupid command of the century for single 
drive units. BACKUP will duplicate a diskette from one drive to 
the next in dual drive units, ie, 4040. 8050, and 8250. Without 
an IEEE card, how can this command ever be used by the Plus 
4 user? Could have left this one out and kept my RECORD*, 

COLLECT To collect a diskette is to validate its BAM with the 
directory, of which BASIC 2.0 can perform via OPEN 15.8.15, 
"V admirably. It^s a nice command to have around, but not 
overly important for normal programming activities. RE- 
CORD* would have fit nicely in its spot in ROM 

COPY Another dumb command for the single drive units. 
How often do you want to copy a file under a different file name 
on the same diskette. It's often a life saver with the dual IEEE 
units, but a close to useless bit of code for single drive users. 
Guess what. RECORD^ would have fit perfectly in the ROM 
occupied by COPY. 

DIRECTORY A useful command that should never have 

disappeared from the VIC and 64's command set. It allows you 

to perform a passive directory of your diskette to your screen. 

without harming RAM in the least, Nice to see it back again, 

DIRECTORY in the plus four is better than the old CATALOG, 

however: it lets you display disk files selectively, using the 

usual patlern-matching and wildcard characters. For example, 

to display all files on drive starting with the letter s. you could 

enter: 

DIRECTORY D1/"s 



" ^ 1^ " 



DLOAD A handy command to load programs from disk with 
a default of unit number 8, drive *0. It's a little bit less tedious to 
load from disk with this one, but life could exist without it. 

DSAVE As with DLOAD, DSAVE will allow you to SAVE 
programs to disk with a default of unit number 8, drive ^0. 
Saves a bit of time and is more pleasant to use. 

HEADER A command that never should be used if you don't 
like to waste computer time. HEADER will NEW a diskette as 
the command OPEN 15,8,15."N0:DISKNAME,ID^ does, but 
with one surprise. Once under way, it waits for the error status 
to arrive before giving you back control of your computer. 
Though a 1541 HEADER may only take a few minutes, it's time 
wasted that could have been put to better use. As before, Til 
continue using the error channel, thank you, 

RENAME It allows you to change the name of a file on 
diskette, as does the BASIC 2.0 command OPEN 15,8,15. 
"R0:NEWNAME = OLDNAME". RENAME saves time in the 
key bashing department, and is easier to remember as far as 
syntax goes. It's a pleasure to see this command back again. 

SCRATCH The BASIC 2.0 command OPEN 15,8,15. 

"SO:FILENAME " does the same thing, but gives you. the user, 
greater credibility. As with the HEADER command, SCRATCH 
asks you if you are sure" before acting. Kind of like an 
overprotective parent looking out for little Yimmie, Though 
Yimmie knows what he's doing, he can't be trusted without a 



double check. As an extra insult, SCRATCH waits for the error 
status to return before giving you your computer back. For me, 
RECORD* would fit belter in the Plus 4 than this one. 

Final note about the special disk command set. Their token 
values are not the same as their BASIC 4.0 counterparts. A 
minor point, but still worth mentioning. 

More Plus's : 

As with the B Machine of Protecto fame, the PLUS 4 has a built 
in reset button on the side. With it you can break out of 
programs directly into the machine language monitor, even if 
your code is stuck in an endless loop. Nice to have when 
debugging code, or trying to look at the code of others. The best 
thing about the reset is that if you hold down the STOP key 
while resetting, you'll be able to get back to BASIC with the 
current program in memory intact - the important BASIC text 
pointers are not disturbed. An addition that will prove its worth 
to you many limes over. 

As briefly mentioned above, available memory is an almost 
pleasant surprise. Of the 64k system, there is 32k of ROM, and 
60671 bytes available for BASIC programming. The top of 
memory pointer is set to $FD00. of which the system uses the 
balance for internal stuff. Unlike the 64, swapping out of the 
system ROMs cannot be done. The RAM under ROM is auto- 
matically accessed by BASIC, as is the ROM above the RAM 
when working in machine code. Some special tricks are per- 
formed by CHRGETand the rest of the operating system to only 
see the RAM under the ROM when working in BASIC. It's 
rather weird when peering through the code, but it works. My 
only major complaint is not being able to swap out the ROM for 
RAM. Sure is nice with the 64 to replace the existing ROM 
routines with custom ones. Other than this slight snarl, the 
extra available BASIC RAM is nice. 

To return to the extra BASIC command set. let's quickly look at 
the extra commands available. 

in the utilities area, we now have AUTO, DELETE, HELP, 
MONITOR. RENUMBER. TROFF, and TRON to help us out. 
AUTO automatically prints line numbers on the screen for you 
while programming, DELETE allows you to delete sections of 
BASIC code from memory. HELP is used whenever your BASIC 
program crashes. It will display the last line executed, and the 
possible condition on that line responsible for the crash. Once 
displayed, the line is flashed on and off on the screen, just to 
catch your altenHon. incidentally, there's no magic ROM rou- 
tine just to flash the line - characters can be printed in flashing 
mode as easily as reverse mode {there are FLASH ON and 
FLASH OFF keys). MONITOR will bring you into the machine 
language monitor, Tedmon. RENUMBER will allow you to 
change the numbering of the lines of your BASIC program as 
you desire. You can even RENUMBER from a specific line * up 
in the increment of your choosing, TROFF and TRON turn a 
BASIC trace facility OFF and ON as you choose. All taken 
together, almost as good as Basic Aid, without some of the 
advanced commands. 
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In the graphics department, we now have the following extra 
commands. BOX, CHAR. CIRCLE. COLOR. DRAW, GRAPHIC, 
GSHAPE, LOCATE. PAINT. RCLR, ROOT, RGR, RLU, SCALE. 
SCNCLR, and SSHAPE. The explanations would require more 
than a little room, so have faith that they're alright. Most of the 
commands have a vast amount of possible parameters, of 
which most can be left off with defaults of logical choices. In 
simple terms, graphics programming in BASIC is a pleasure. 

In the sound section, there are only two commands. SOUND 
and VOL, SOUND allows you to set the frequency, duration, 
and voice to be accessed, and the VOL command sets the 
volume of the voice specified. Though not as powerful as the 
SID sound with the 64, it sure is a heck of a lot easier. 

Finally, more extra commands do exist, but their sole purpose 
in life is to make programming more pleasurable. They are 
DEC, DO, ELSE. ERRS. EXIT, HEX$, INSTR, JOY, KEY. LOOP, 
MID$, RESUME. TRAP, UNTIL, USING, WHILE, and GET KEY. 
The following is a very brief rundown of their powers- 
Error trapping is possible within program mode through the 
use of the TRAP command. The format is TRAP line^. If any 
error occurs within program mode, even the depression of the 
(slop) key, the line* specified by the TRAP statement will be 
executed, to allow you to interrogate the error condition en- 
countered. For this two variables are used, ER and EL. ER 
returns the error condition *, and EL returns the line ^ that the 
error was encountered in. For a bonus, a description of the 
error generated can be found in the string variable ERR$, To 
continue execution of the program after the error, the RESUME 
statement is used. 



optional start location. When complete, it returns the start 
location that the string was found at. For anyone doing file 
manipulation operations, it will prove invaluable. 

The USING keyword is used via PRINT USING ''string expres- 
sions";lisf of expressions; . where specially formatted output 
can be generated at will. Printing specific portions of the 
strings, or printing numeric variables in correct decimal nota- 
tion, with $ preceding the value, with correct signing of the 
values, or with signing if negation present, or automatic right 
justification of the value padded with spaces, is all possible. 
Special programming assignments dealing in these aspects of 
life will surely benefit for the PRINT USING statement. 

JOY is a command used to return the current x,y position of the 
joystick on the screen. A handy item to have around when 
BASIC games are being written. 

GET KEY IS actually two separate keywords, GET and KEY, The 
interpreter finds the GET token, jumps to the appropriate code, 
of which the GET code makes a further check to see if the token 
value for KEY follows it. If so, the GET KEY code is branched to. 
GET KEY is used to wait for the depression of a key on the 
keyboard. Once pressed, it returns with the correct string value 
in the assigned string. Identical in concept to: 

10geta$:ifa$="" tfienlO. 

The KEY command also has a more useful feature: it lets you 
define the function keys and display the current definitions. 
The default definitions are often-used BASIC statements like 
LIST. RUN. DIRECTORY, DLOAD, and HELP, 



A new method of looping has come about, or new in the world 
of Commodore at least. It's the DO/WHILE series of commands 
that will excite all who use them. There are 4 possible formats: 
DO routine LOOP UNTIL condition; DO routine LOOP WHILE 
condition; DO UNTIL condition LOOP; DO WHILE condition 
LOOP . For an extra twist, the EXIT statement can also be used. 
The 'condition' tested for can EXIT outside of the loop, thereby 
allowing you a method out without leaving the stack in a messy 
state. In general terms, the DO/WHILE loop makes the GOTO 
statement slightly obsolete. 

DEC and HEX$ could also fit in the utilities department, 
because they allow instant conversion of Hexadecimal to Deci- 
mal notation, or vice-versa. They work much like ASC and 
CHR$; they require the same argument 'types' and can be 
placed anywhere in expression evaluation statements of simi- 
lar gender. 

The ELSE statement is an omen for all who have ever wasted 
tons of code testing for a certain condition, then jumping all 
over the place to avoid bumping into code. The format is: IF 
condition THEN action ;ELSE action . A guaranteed life saver in 
the massive code department. 

INSTR is an incredibly useful command. It allows you to search 
for the first occurence of a string within a string, with an 



Before wrapping things up, one more fine feature should be 
mentioned. Super screen editing tricks can be performed by 
using the ESC key along with a few other choice keys. Setting 
windows on the screen, deleting and inserting lines, auto 
insertion of characters, deleting from the cursor to the start of a 
line or to the end of the line, and scrolling the screen up or 
down, are just a few of the features available. In many ways it's 
better than my 8032 for screen editing. Too bad it's doesn't 
have an 80 column display mode. 

My final analysis of the machine is, if you're willing to live with 
the bad points, which time may cure with adapters, then a 
terrific programming machine is waiting for you. One major 
point may stand in its way of success, though. The price. The 
64 is quite a bit cheaper now than it was a few years ago at 
conception. This factor makes the Plus 4 hard to market. 
People would rather buy the lower priced, high powered 64 
than take a chance with the new, equally powerful but higher 
priced new kid on the block. If Commodore was to announce a 
price reduction for the Plus 4. salvation may be within reach- 
Otherwise it may be just another really good Commodore 
machine that died an early death. 
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The Programmable Kitchen 



Where is there more computing power: The bridge of the 
Enterprise or your kitchen? What's smarter. Spock's scanner or 
your dishwasher? Dumb questions, both, but the point is, what 
was major-league computing power yesterday is standard 
household appliance-lype power today. 

Microwave ovens, Stereo components, automobiles, washing 
machines, and games and toys will never be the same, with 
microprocessors running rampant in our homes and drive- 
ways. The benefits to the average consumer are obvious: more 
features, lower cost (sometimes), and greater ease of operation 
(well, usually not, but that's the idea). So the average lay person 
gains from the CPU invasion, except maybe the fellow who 
wishes the nagging voice in his dashboard would leave him 
alone, but what about us programmers? 

More accurately, what about us hackers, those of us who teach 
computers stunts for their own sake, to whom the act of 
programming is more important than the end result? We've 
been excited by each new generation of computers, each more 
powerful than the last. It's easy to understand lusting after new, 
more powerful machines; for some, it's the latest Porsche or 
Ferrarri. When it comes to computing, it might be the next 
Commodore, But a household appliance? What could be more 
boring than a washing machine or refrigerator? Do you show 
your new fridgidaire to your friends, saying things like. 'Teah. 
it's got a 48-cube capacity, but Tm only running with 24 now. 
and that's plenty. It'll chill a beer in 3.2 microyears, an' . . . '7 

No, most of us who haven't toasted too many neurons staying 
up late tracking down and dissecting bugs, don't. But that could 
change. What manufacturers of these compu-pliances should 
do is put in a back door for hackers to use at their own risk. Just 
a little serial port behind a pane! somewhere and a little change 
in the device's firmware could do wonders to change our 
outlook on even the most mundane items of necessity. A bit of 
free RAM (preferably non-volatile), a memory write and mem- 
ory execute command, a few memory maps thrown into the 
manual, and the door is open to the enterprising programmer. 
Bored with your computer? Why not teach your Compact Disk 
unit to play backwards? 

Think of the possibilities: The microwave beeps a few bars of 
"Hungry Like The Wolf" when the left-overs are reheated. Your 



VCR forward-scans for 3 minutes whenever you simultane- 
ously press the forward and reverse keys - the "commerciar' 
function. Your car gains 20 horsepower, perhaps at the expense 
of fuel economy (maybe a bit of pollution control, too). And that 
nagging voice under the dashboard could be made to change 
its tune; "Shut the door, stupid!". 

While you're educating your electronic servants to the ways of 
the world, why not take the next step and set up a communica- 
tions network? A bit of cable strung about between devices 
(LOTS of cable if you want to include your car) would allow an 
efficient household organization system. Picture this: The oven 
sends the FRFC (Food Ready For Consumption) signal to the 
coffee machine, which starts preparing the after-dinner coffee. 
The coffee machine sends a DRTBW {Dishes Ready To Be 
Washed) to the dishwasher when the coffee's finished, which 
starts sudsing up for its performance. Now the stereo receives a 
PDMM (Post-Dinner Mood Music) to complete the perfect 
evening. Inviting your date over for dinner will never be the 
same. 

All your smart devices could be custom-programmed to reflect 
your needs and specifications, not those of some engineer in 
Japan. And as more and more devices incorporate micropro- 
cessors, your environment will become more sensitive to your 
needs. Someday even your toaster could concern itself with 
you state of mind that morning before deciding on a darkness 
level- Maybe someone could teach an electric razor about how 
to handle acne territory. There's really no limit to the com- 
puter's infiltration of electricland. 

So take action now: write the manufacturers and urge swift 
action on this matter- Programming power to the people! Make 
the products conform to our needs, not us to theirs! I want the 
fabric softener added later in the wash cycle - what're you 
gonna do about it? Such inducements may bring results with 
time, and we'll all have more control over our environments, 
and ultimately, our lives. 

Meanwhile, back on the Enterprise . . . ^'Captain, the bridge 
won't respond; due to a computer malfunction, we've been 
locked out. The enterpise will explode in a fiery storm of death 
in exactly 17.2 seconds." -CZ 
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Chopper and Labelgun 
for the Commodore 64 



Chris Miller 
Kitchener, ONT 



A multiple statement line splitter and a label re-definition utility for PAL source programs 



I very much doubt if there exists anywhere on Earth, assembly 
language source wrillen in a style more horrible, more unreadable, 
more totally incomprehensible ttian some of my very own- 
Sure, it has to be bad to be the worst. Real bad. But, imagine if you 
can, thousands upon thousands of lines of code, wherein a single 
helpful comment would die of sheer loneliness. Well, that Is just the 
beginning. Now picture, ifyouwill.in this barren place, a multitude of 
meaningless labels, a veritable menagerie of mindless symbols, 
scores of infinitesimal, idiotic identifiers, for whom the sole purpose of 
existence is to allow the assembler to assemble. What ever was I 
thinking! 

I use the PAL assembler by Brad Templelon. One really keen feature 
of PAL(whichldearlylove) is its willingness to let you link all sorts of 
statements together on a single line using colons. Neal-0! You can 
write a small subroutine on one line and still have room to start the 
next one, even attach another (leensy) label. Though seriously Brad, it 
might have been less cruel to leave this feature out. It's so easy to get 
carried away. . , or maybe I'm the only colon addict out here. Anyway, 
the only cure is total abstention. Now 1 woul dn't use a colon eyea il I 
had to pop th^ stack^a billion times in apw. Fve stopped cold lurkey. 

The first thing 1 noticed after kicking the colon habit was that my 
screen looked funny. The right hand side was bare, empty, utterly 
devoid of data. Lengthening the labels helped a little, but the right side 
still felt vacant- 





Chopper is memory based, BASIC must be able to hold both the 
original and the de-colonJzed version of your source. This gives you 
16K for the original, more for the new version. Pointers are set to the 
new one. After SYSteming through Chopper, simply list, sprinkle with 
wonderful, descriptive comments, and save your new program. 



Then it came to me! Why not put useful comments and markers over 
there so that when I went, say, to look for the READKEY routine 
someday, it wouldn't take the usual half a fortnight. 

In so doing I discovered a number of situations in which my com- 
mentSf although accurately depicting The code, still didn't make any 
sense. The cure for these redundant, extraneous, often irrelevant 
annotations was, quite simply, to remove the offending line, code and 
all. Amazingly, my programs gel along fine without them. 

If you are presently asking yourself why you would ever want to type 
in a piece of code wrillen by a lunatic such as myself. . . relax, I told 
you I'm almost cured. You may not understand my source perfectly, 
but it shouldn't drive you insane either. And it really works well. 

So suppose you do decide to take an old colon-laden program and 
repair it; you know, lots of while space, code on the left, comments on 
the right, meaningful labels and so on: A lengthy piece could carry 
you clean into your next crisis. 

Wouldn't it be much less work to copy my Chopper program? Then 
cure all your impacted code in an instant forevermore. Chopper is 
intelligent enough not to split a hne where a colon occurs between 
quotation marks. Extra colons will be ignored. 



Labelgun 

Easier said than done, I know. Bad style is hard to use and harder 
understood. Now all those lousy little labels catch up with you. Like, if 
I had only called it INPUTKEY instead of IK how much more sense its 
thirty some odd appearances would have lent my source. And take all 
those silly subroutines that have been modified and modified until 
only the name remains the same. What to do with those zillions of 
nonsensical, even downright misleading names? 

1 have fond memories of one particularly absorbing evening spent 
tracking down and changing all the occurences of an unusually 
popular little routine called "FM" whose job, it turned out, was to tell 
sprites whether to appear in Hi-resolution or Multi-colour mode. Ff^ 
= FINDMODE, Well, it made sense al the time. Out of great misery 
springs great art. or so they say. Thus came Labelgun to be; to forgive 
the sin of sloppy symbol selection. If you take the trouble now to copy 
it you will forever be able to kill those lunkhead labels dead, instantly 
and automatically replacing them with descriptive, well thought-out 
ones- 

Labelgun sets up as a Chrget wedge. That is, it adds a command to 
BASIC by creating a detour through itself in BASIC'S search for 
commands routine. 
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The code is less than 700 bytes long and sits at $C000 hex or 49152. 
After loading you only need call it once via SYS 49152. This will set 
and save some essential pointers, but leads one down the path of 
despair (crash) if repeated with the wedge already in effect. Entering 
an X will turn off the wedge and restore the pointers. 

With Labelgun active, the command: CCM.COLORMEM will, instead 
of a syntax error, cause every occurence of the use of CM as a symbol 
to be changed to COLORMEM throughout any BASIC (PAL) source 
listing. The number of changes made is printed out upon completion. 

Labelgun will not miss any occurences oi a symbol, and only very 
rarely attack the wron^ string (your comments). Any global changes 
such as Labelgun performs are frought with a small amount of risk. 
You will not. as a rule, want to generate an already existing label 
which would at best lead to redefinition errors, and at worst, program 
malfunction. To check the uniqueness of a label 1 try converting it to 
itself. ■ alterations made, . , " tells me it is safe to use. 

Labelgun is not opposed to changing numbers into labels. For exam- 
ple, the command C,$FFD2, PRINT is valid and useful. It is considered 
good style to make abundant use of constants. Any value used more 
than once should probably be assigned to a constant at the start of 
your program. This will make your source much easier to modify and 
to understand. With a command like C,53281,BKGCOLOR the con- 
version is painless indeed. 

Labelgun can a/so be used to rename variables in a BASIC program — 
it doesn t mess up your REMs, either! -T.Ed 

Far more programming effort goes into modifying the old than writing 
the new. Some giant software packages have had meager beginnings. 
So if it's worth disk space, it's worth being made comprehensible and 

reworkable. 

Labelgun and Chopper have easily saved me the time it took to write 
them, I use my own two-pass, label generating disassembler which 
dumps source into BASIC program space to be listed. With labelgun I 
then begin putting meaningful names to values and generated labels, I 
can't imagine an easier way of converting raw code to readable, 
usable source. 

With Labelgun and Chopper in your utility arsenal you will be able to 
write PAL or similar source using lots of colons and single character 
labels. With everything fresh in your mind it may not matter, and be 
faster. When you are finished and have everything working the way 
you want you can easily render it understandable for future refer- 
ences. 

Listing 1: BASIC loader for chopper 



PJ 

LI 

EC 

DH 

GK 

FG 

JG 

AF 

IN 

GF 

KA 

OA 

DA 



10 rem* dataioaderfor "chopper" * 

20cs = 

30 for i = 51 200 to 51426:read a:poke i,a 

40cs = cs-i-a:nexti 

50: 

60ifcs<>30292then print""*** data error *-"f**V end 

70 rem sys 51200 

80 end 

100: 

1000data165, 43,133,251.133,253,165, 44 

1010data133,252, 24,105. 64,133,254,133 

1020dala 44,169, 3,141,134, 3,141,135 

1030data 3, 169, 0, 141, 136, 3. 141, 133 



EE 
KF 
LK 
BD 

El 
JG 
CC 
LE 

IE 
CN 
BE 

Bl 

HK 

JM 

LH 

NK 

MK 

OL 

DL 

CF 

NN 

CL 

NN 

MO 

IJ 



BP 

LI 

KF 

DH 

GK 

JH 

El 
AF 

IN 

NA 

BH 

PG 
Bl 
CM 
KH 
EG 
DB 
PD 
MN 
ID 
BA 
JE 
LN 
BA 
KG 
CK 
GM 
MO 
ML 
JG 
GD 
BB 
GL 
JJ 
AJ 



1040 data 3. 
1050 data 255. 
1060 data 10. 
1070 data 253, 
1080 data 238, 
1090 data 34, 
1100 data 1, 
1110 data 5, 
1 1 20 data 3, 
11 30 data 177, 
1 1 40 data 0, 
11 50 data 252, 
11 60 data 172, 
11 70 data 0, 
IIBOdatalOl, 
11 90 data 254, 
1200 data 132, 
1210 data 133, 
1220 data 133. 
1230data135, 
I240data169, 
1250data169, 
1260 data 145, 
1270 data 253. 
1280 data 76, 



160, 3, 
145,253. 
145,253, 
172,134, 

134, 3. 
206, 10, 
141, 136, 
174,136, 
145,253, 
251,208, 
177,251, 
134,251, 

135, 3, 
145,253, 
253, 144, 
169, 1, 

3, 24, 

3,141, 

3, 200, 

3, 78, 

1.168, 

0,145. 

253, 200, 

144, 1, 

51, 165 



145,253, 
230, 254, 
200, 141, 

3, 200, 

177,251, 

72, 1 73, 

3,104, 

3, 240, 
76, 57, 

3, 76, 
170,200, 
160, 3, 
192, 4, 
200,152, 

1.232, 
168,145, 
105, 10, 
132, 3, 
145,253, 
136, 3, 
145,253, 
253, 200, 
152, 166, 
232, 133, 



198,254,160 
160. 1,169 
132, 3,145 
238, 135, 3 
240, 31.201 
136, 3, 73 
201, 58,208 
31,172,135 
200, 200, 200 
192,200,160 
177,251, 133 

140.134, 3 
240, 46, 169 
166,254, 24 
133,253, 134 
253,200,173 
144, 3,238 
145,253,173 
169, 3,141 

76, 57,200 

172.135, 3 
145,253,200 
254, 24, 101 

45, 134, 46 



Listing 2: Lal>etgun loader 

10 rem* data loader lor "labelgun" * 
20 cs = 

30 for 1 = 49152 to 49831 :reada:pokei, a 
40cs = C3-t-a:nexti 
50: 

60 if CSO83704 then print" •«*♦• data error "••• 
70 fern sys 49152 
80 end 
100; 

1000 data 173, 8, 3, 141,232, 3 J 73, 9 
lOIOdata 3.141,233, 3.169, 23,141, 8 
1020data 3,169.192,141, 9, 3, 96,165 
1030 data 56,201,255,208,108.165. 43.133 
1040data251, 165, 44,133.252,160, 1,177 
1050data122,201, 88,208, 3, 76,122,192 
1060dala201, 67,208, 85,169, 0,141, 69 
1070data 3, 32,115, 0, 32,115. 0,240 
1080 data 81,201, 44,208, 71, 32,115, 
1090 data 240, 72.162, 0,157, 72, 3, 32 
1100data115, 0,240, 62,201, 44,240, 7 
11 10 data 232, 224, 40,208,239,240, 45, 32 
1120data115, 0.240, 46,232,142, 65, 3 
1130datal62, 0,157,112, 3, 32,115, 
1140 data 240, 63,232,224, 40,208.243. 76 
1150data140, 192, 32.115. 0.173,232, 3 
1160 data 141, 8, 3,173,233, 3,141, 9 
1170data 3,108,232, 3, 32.152,192, 76 
1180data 29,193, 32,152,192, 76, 34,193 
1190data162. 0,189, 72,194, 32,210,255 
1200 data 232, 224, 46,208,245, 96,162, 22 
1210 data 221, 145,194,240, 3,202, 16,248 
1220data 96,232,142, 64, 3,160, 4,162 
1230 data 0,177,251,240, 78,200,221, 72 
1 240 data 3, 208, 244, 232, 224, 1 , 208, 1 8 
1250 data 192, 5,208, 5,142, 68, 3,240 



:end 
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CM 


1260 data 9, 136, 136,177,251,200,200, 141 


HE 


1270data 68, 3,236, 65, 3,208,218,177 


GK 


1280data251, 32,166,192.208,209,173, 68 


NA 


1290 data 3, 32,166,192,208,201,238, 69 


CI 


1300data 3,152, 56,237, 65, 3,141, 66 


KF 


1310 data 3,166,252,152. 24,101,251,144 


DB 


1320data 1,232.142,235, 3,141,234, 3 


HM 


1330 data 76,101,193,160, 0,177,251,170 


DH 


1340data200,177, 251,133, 252, 134,251,177 


DB 


1350data251, 208, 154,240, 5, 32,115, 


BG 


1360 data 208, 251, 165, 122,208, 2. 198, 123 


BH 


1370dala198, 122, 169, 13, 32,210,255,162 


BE 


1380data 0, 56,173, 69, 3,201,100,144 


Kl 


1390 data 7,169, 49, 32,210,255.233,100 


NJ 


1400 data 168, 56,233, 10,144, 3,232,208 


HL 


1410 data 247, 138, 9, 48, 32,210,255,152 


FM 


1420data 9, 48, 32,210,255,162, 0,189 


JO 


1430 data 118, 194, 32,210,255,232,224, 27 


PG 


1440data208, 245, 108,232, 3,173, 65, 3 


CJ 


1450data 56,237, 64, 3,240, 19,144, 6 


OA 


1460data141, 67, 3, 76,252,193, 73,255 


CE 


1470data 24,105, 1,141, 67, 3, 76,153 


FC 


1480data193, 32,135,193, 76,183,192,172 


Fl 


1490data 66, 3,162, 0,189,112, 3,145 


HG 


1 500 data 251 , 232, 200, 236, 64, 3, 208, 244 


BK 


1510 data 96,166, 45,142,184,193,166, 46 


LE 


1520data142, 185, 193.173, 67, 3, 24,101 


DA 


1530data 45,144, 2,230, 46,133, 45,141 


CI 


1540 data 187, 193, 165, 46, 141, 188,193, 173 


JG 


1550 data 255, 255, 141 , 255, 255. 206, 184, 193 


OF 


1560 data 173, 184, 193,201,255,208, 3,206 


IL 


1570 data 185, 193,206,187, 193,173, 187, 193 


D 


1580data201,255, 208, 3,206,188,193,173 


BG 


1590data185, 193,205,235, 3,208,216, 173 


DN 


, 1600data184, 193,205,234, 3,176,208, 32 


Kl 


1610data135, 193, 152, 72,165,251,164,252 


MH 


. 1620data133, 34,132, 35, 32, 59,165,104 


BF 


1630 data 168, 76,183,192,174,235, 3,142 


CM 


1640data 23,194,173,234, 3,141, 22,194 


AL 


1 1650 data 56,237, 67, 3,176. 1,202,141 


GM ' 


1660 data 25,194,142, 26,194,173,255,255 


BF ' 


1670 data 141, 255, 255, 238, 22, 194, 208, 3 


HO 


1680data238, 23,194,238, 25,194,208, 3 


BH 


1690data238, 26,194,173, 26,194,197, 46 


HB 


1700 data 208, 227, 173, 25,194,197, 45,144 


GN 


1710dala220, 165, 45, 56,237, 67, 3,176 


AN 


1720data 2,198, 46,133, 45, 76,231,193 


KD 


1730data 84, 79, 32, 18, 67, 72, 65, 78 


DE 


1740data 71, 69, 32, 83, 84, 82, 73, 78 


LI 


1750data 71,146, 32, 58, 13, 67, 44, 60 


PH 


1760 data 79, 76, 68, 83, 84, 82, 73, 78 


MG 


1770 data 71, 62, 44, 60, 78, 69, 87, 83 


AF 


1780 data 84, 82, 73, 78, 71, 62, 32, 65 


DJ 


1790 data 76, 84. 69, 82, 65, 84, 73, 79 


01 


1800 data 78, 83, 32, 77, 65, 68, 69, 32 


OK 


1810 data 84, 79, 32, 83, 79, 85, 82, 67 


Dl 


1820 data 69, 35, 44, 59, 58, 41, 40, 47 


PK 


1830data 45, 42, 43, 60, 62, 61, 32,170 


PI 


1840 data 171, 172.173, 177, 178, 179, 0, 1 



Ml 
EJ 
Gl 
JC 
BF 
K( 
KO 
CK 
OB 
MB 
GD 
FP 
BH 
LK 
BH 
PI 
BL 
LM 
DH 
Gl 
LI 
GA 
PF 
KO 
CP 
PD 
El 
HO 
\C 
CG 
HC 

aJ 

GH 
PD 
JE 
FJ 
DM 
KH 
JE 
NK 
KJ 
Ml 
LP 
FJ 
EE 
MK 
DO 
FK 
JG 
EC 
LH 
10 
AC 
JF 
CO 
CN 
DB 
JA 
KM 
FL 
FO 
HA 
LP 
DJ 
00 
JA 
FE 
EE 
NH 
HB 
MH 
IK 
KL 
EM 
KD 



Listings: 'Chopper' PAL source 

IDrem chopper chrismiller(1984) 

20 sys700 ;pal 64 assembler 

30 opt 00 

40 * = $c800 

50 ;■•• zero page pofnters •*••■*...••* 

60 sob = 43 

70 sov = 45 

80 oldprg = 251 

90newprg =^ 253 

100 ,-»****'rom subrouline(s)** • 

1 10 rechain = $a533 ;*linkB fines- 

120; -»n*t variable addresses *•••*•» 

130 line = 900 

140oldindx = 902 

150newindx = 903 
leOquottlag = 904 
170 ; •*••* constant values ***•-**•••• 

180 spread = $40 

190 step = 10 

200 ^'--begin initialization 
210 initialize = ■ 



;»program seperation- 
>line# increment- 



■ *4«ianft4.Apan*. 



220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 



Ida sob 

sta oldprg 

sta newprg 

Ida sob + 1 

sta oldprg + 1 

cic 

adc #spr6ad 

sta newprg + 1 

sta sob + 1 

Ida #3 

sta oldindx 

sta newfndx 

Ida #0 

sta quotflag 

sta line + 1 

Idy #3 

sta (newprg), y 

dec newprg + 1 

Idy #$ff 

sta (newprg),y 

inc newprg + 1 

fdy #1 

Ida #step 

sta (newprg),y 

Iny 

sta line 



; -set old pointer to sob' 



; "new to sob + spread- 



'inilialize indexes- 



;»and quote flag- 
i'hibyteof line*' 

;-in place now- 



;'basic start zefo- 



sta (newprg), y 
490 , -begin primary loop to find colons* 
500 fndcolon = » 

Idy oldindx 

iny 

inc newindx 

inc oldindx 

Ida (oldprg), y 

beq eoln 

cmp #34 

bne colonchk 

pha 

Ida qjottlag 

eor #1 

sta quotflag 

pi a 

cmp#":" 

bne next 

Idx quotflag 

beq maknulin 

Idy newindx 

sta (newprg) ,y 

jmp fndcolon 



;"phoney first link- 

i'lobyteof line#' 
;*in place- 



510 

520 

530 

540 

550 

560 

570 quote 

580 

590 

600 

610 

620 

630 

640 colonchk 

650 

660 

670 

680 next 

690 

700 



•look at next char- 
•if zero, newline- 
* quotation mark- 
•if not check for colon- 



> 



iton-off -if off-on- 

gel back current cfiar- 

not colon, keep going- 
see if between quotes 
if not, new line- 



= ■ 



710;"-" end of old program line ■•" 

720 eoln 

730 

740 

750 



•y = oldindx- 



my 
iny 
[da (oldprg),y 



see next hihnk' 
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NL 


760 


bne ccc 


;»end ot source test" 


MH 


60 maxlen 


= 40 






FG 


770 


jmp finished 




IM 


70;*'**** subroutine + addresses 


• **»■ 




CA 


780 ccc 


Idy #0 




GH 


80 chrget 


= $73 






HC 


790 


Ida (oldprg),y 


;-selpntrstofink* 


IJ 


90 prim 


= $ffd2 






10 


800 


tax 




A 


100 recham 


= $a53b 






KA 


810 


iny 




HJ 


1 10 ;-"»" indirect pointers ***-•**- 




BK 


820 


Ida (oldprg),y 




GH 


120strtink 


= $22 






JH 


830 


sta oldprg + 1 




GB 


1 30 sob 


- 43 


;*start of source* 




LH 


840 


stx oldprg 


;»pntrs now reset' 


GN 


140 sov 


- 45 


,*end of source* 




JO 


850 


Idy #3 


;*'-initializesoldindx»*- 


IE 


1 50 lextptr 


= $7a 






PA 


860 ;-•*•• 


end ot new program hne 


««■ w 


FJ 


160 link 


= 251 






FK 


870 maknu 


lin = * 




NE 


170chrptr 


= 776 






LC 


880 


sty oldindx 




OP 


ISOchrvec 


= 1000 


;»ho1ds chrget vector* 




IM 


890 


Idy newindx 




C 


190 abelend 


= 1002 


;*endoflabe ptr- 




EM 


900 


cpy #4 


i'testlor extra coons* 


NJ 


200 ;*■•• variable addresses *»*---•* 




to 


910 


beq pass 


;*itso ignore* 


AO 


210oldslrng 


= 840 






01 


920 


Ida #0 




MC 


220 newstrng 


- 880 






EG 


930 


sta (newprg).y 


;*end of line zero* 


IL 


230 newsize 


= 832 






HM 


940 


my 




AB 


240 oldsize 


= 833 






MG 


950 


tya 


;*dfStancelonew!ine- 


PL 


250 indexibl 


= 834 






EG 


960 


Idx newprg + 1 




AK 


260 hov^ar 


= 835 






AE 


970 


cic 




FM 


270 preceeds 


= 836 






IF 


980 


adc newprg 


i'poinltonext me* 


EE 


280 howmany 


- 837 


;*changesmade* 




JO 


990 


bcc eeee 




JO 


290 ;••-'- tlag registers *•"-***■"•• 




EM 


1000 


jnx 




LB 


300modefag 


- 58 






OJ 


1010 eeee 


sta newprg 




OL 


310 ;»*-setcharget pointer *•■•***••* 




OF 


1020 


six newprg -+-1 




JK 


320 


Ida chrptr 






DP 


1030 


Ida #1 




MN 


330 


sta chrvec 






PN 


1040 


lay 




1 

PH 


340 


Ida chrptr + 1 






EF 


1O50 


sla (newprg),y 


i'phoney ink* 


CL 


350 


sta chrvec + 1 






EA 


1060 


iny 




AF 


360 


Ida #<gelinpul 






KL 


1070 


Ida line 


;*makenewlinenum' 


JB 


370 


sta chrptr 






OK 


1080 


dc 




AG 


380 


Ida #>getinput 






BB 


1090 


adc #s1ep 




PO 


390 


sla chrplr + 1 






LC 


1100 


bcc aaa 


w 


MH 


400 


rts 






GM 


1110 


inc ine + 1 




PN 


410getinpL^t 


:= * 






, LE 


1120aaa 


sta me 




BE 


420; *■"« see 


if in immediate mode **• 




1 FD 


1130 


sta (newprg), y 




AA 


430 


ida modefag ;• 


test mode (p rog ram /immediate) - 




EM 


1140 


Ida ine+1 




PF 


440 


cmp #255 






lOF 


1150 


iny 




BJ 


450 


bne stopchek 






IDF 


1160 


sta (newprg), y 




MN 


460 


da sob 


;*slarl of baste ptr* 




MP 


1 1 70 pass 


= ■ 




AH 


470 


sta Itnk 






AH 


1180 


Ida #3 


;-inilialize new index* 


IN 


480 


Ida sob + 1 






CN 


1190 


sla newindx 




AJ 


490 


sla link + 1 






E 


1200 


sr quotflag 


;-initia ize quote flag* 


BE 


500 


Idy #1 






FB 


1210 


jmp fndcoon 




EM 


510 


Ida (textptr),y 


.♦see first char* 




NJ 


1220; — - 


••■ exit routine --»*•--•»•* 


CA 


520 


cmp # " X " 


;*isitan xt 




NM 


1230finished = " 


;*get ready to exit* 


DB 


530 


bne checkc 






FM 


1240 


Ida #1 




PH 


540 


jmp d is wedge 


i*if so dismantle wedge- 




BL 


1250 


tay 




LK 


550 checkc 


cmp#"c" 






JD 


1260 


sta (newprg),y 


;*phoney ast ink- 


PP 


560 


bne stopchek 






LG 


1270 


Idy newindx 


;*mdex end of line* 


EL 


570 ;--•** check the target stnng 


*•• 




AL 


1280 


Ida #0 


;*tinal three zeros* 


PC 


580 


Ida #0 






FN 


1290 


sta (newprg), y 




LP 


590 


sta howmany 






EP 


1300 


my 




EF 


600 


jsr chrge! 


;*colectthec' 




JO 


1310 


sta (newprg) ,y 




Ml 


610 


jsr chrgel 


;*get next char* 




lA 


1320 


iny 




CB 


620 


beq eolerror 


i*eo n sets z flag- 




NP 


1330 


sla (newprg).y 




GJ 


630 


cmp#"," 






PJ 


1340 


iny 


;*byte past last zerO- 


LB 


640 


bne error 


;*we want a comma- 




NP ' 


1350 


tya 




MK 


650 


jsr chrget 






BE 


1360 


dx newprg + 1 


i'formnewsovpntr* 


DA 


660 


beq eolerror 


;'noeoJn yet please* 




AN 


1370 


cIc 




FO 


670 


Idx #0 






CB 


1380 


adc newprg 




PH 


680 read od 


^ * 






PF 


1390 


bcc ddd 




GK 


690 


sta oldstrng.x 


i-colectod abel* 




EF 


1400 


inx 




ON 


700 


jsr chrget 






LO 


UlOddd 


sta sov 




KL 


710 


beq eo error 


;-noendof me please* 




KF 


1420 


six sov + 1 




Gl 


720 


cmp#\" 


;*seperates old/new 




MJ 


1430 


jmp rechain 


;• ink prograrr lines* 


MD 
AM 


730 
740 


beq read new 
inx 
















HG 


750 


cpx #maxen 






LJAling4: 'Labelgun 


PAL source 


DJ 


760 


bne readod 










el gun!!! by chnsmjler(1984) 


HA 
KE 


770 

780 read new 


beq error 

= • 


;*string too long* 
; -collect new abel* 




El 


10 rem abi 




DK 


20sys700 ,pai64 




iD 


790 


jsr chrgel 






G3 


30 .opt 00 






OE 


800 


beq eo error 


;-noeotn* 




JB 


40- 


= $cOOO 




GA 


810 


inx 






EN 


50 ;•••■• 1 


numerical constants •••••** 


OA 


820 


stx oldsize 


;-save length ■ 
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Ff 


' 830 Idx #0 




JK 


1600 found 


^: * 






EM 


840 aaaa sta newslrng,x 




JN 


1610 


inc howmany 






EH 


850 jsr chrgel 




LG 


1620 


tya 


; •points end of label - 




OG 


860 beq findstr 


;• valid eofn- 


PN 


1630 


sec 






CE 


870 inx 




LK 


1640 


sbc of d size 






JO 


880 cpx #max1en 




IL 


1650 


sta indexibl 


i^jvivelabeistart- 




Gl 


890 bne aaaa 




AE 


1660 


Idx link + 1 






ON 


900 jmp error 




ND 


1670 


tya 






ID 


910 ;»*"trestore the wedge poJnier- 


»•••• 


GA 


1680 


cic 






NL 


920diswed9e - • 




10 


1690 


adc link 






CP 


1 930 jsr chrget 


;-eatupthex^ 


JL 


1700 


bcc jjj 






AA 


940 Ida chfvec 




KJ 


1710 


inx 






NF 


1 950 sta chrplr 




AF 


1 720 jjj 


stx 1abelend + 1 






GN 


1 960 [da chrvec + l 




LF 


1730 


sta abelend 






DD 


970 sta chrptr+1 




BH 


1740 


jmp changslr 


;-change the string - 




OH 


, 980 siopchek = • 




DB 


1750;tt.. ready to look at next me 


■* 




EL 


990 jmp (chrvec) 




DP 


1760 next ink 


= » 


;*llnkpnlr = nextlink- 




DE 




«* 


FD 


1770 


Idy #0 






CN 


1010 error = • 




GD 


1780 


Ida (link),y 


;»lobyteotlmk* 




JP 


1020 jsr howtodo 


;* message* 


JM 


1790 


tax 






10 


1030 jmp eatline 




10 


1800 


iny 






AG 


1040eo1error = ■ 




BB 


1810 


Ida (ink),y 


;*hibyte- 




ME 


1 050 jST howtodo 




CM 


1820 


sta link+1 






EG 


■ 1060 jmp inputend 




LE 


1830 


stx link 


;»newlinkin pointer- 




Jl 
GG 




I A A 


EA 
AN 


1840 
1850 


Ida (link).y 
bne next me 


;-lestforeof- 
;-go do next line* 




1080 howtodo ° ■ 


I'prints error message* 




KD 


1090 dx #0 


h 


AG 


1860 


beq mputend 






AB 


HOOaaa Ida errmsg,x 




JJ 


1870;-**" closeupandquit •••••••• 




EM 


1110 jsr print 




KC 


1880eatline 


= « 


; tgeteoln* 




MD 


1120 inx 




fvlP 


1 890 qqq 


jsr chrget 






01 


1130 cpx #errmsgx-errmsg 


EN 


1900 


bne qqq 






MM 


1140 bne aaa 




IP 


1910 ;---end of line zero reached-- ■-•" 




KG 


1150 rts 




JG 


1920 inputend 


= * 


:'haveeoln* 




FK 


1160;**«"**checkforoperaIors»-'***»* 


PM 


1930 


Ida textptr 


i*et basic imd It- 


1 


FM 


1 1 70 checkops = • 




fVlB 


1940 


bne zzz 


;-by backing up textptr- 




MG 


1 1 80 Idx #expressx-express-1 


OP 


1950 


dec textptr + 1 






PD 


1 1 90 keepon cmp express,x 




CO 


1960^7 


dec textptr 






NH 


1200 beq eave 




BK 


1970 ;•-•••- print number of changes •♦■ 




BH 


1210 dex 


4 


DJ 


1980 


Ida #13 


;-carriage return- 




NN 


1220 bpl keepon 




ED 


1990 


jsr print 






CL 


1230 leave rts 




HB 


2000 


Idx #0 






EM 


1240 ;••••■ find the target string ••• 


LF 


2010 


sec 






JL 


1250findstr - ■ 




DA 


2020 


Ida howmany 


;*number of changes- 




IM 


1 260 inx 




HI 


2030 


cmp#100 


;»workstorn<200- 




DC 


1270 stx newsize 


i*length of new label* 


AD 


2040 


bcc num 






KK 


1280nextline = - 




MO 


2050 


Ida #"1" 






NF 


1290 Idy M 




KH 


2060 


jsr prmt 






JC 


1300newtest = • 




DG 


2070 


sbc #100 






FG 


1310 Idx #0 




AN 


2080 num 


tay 






NC 


1320getchar Ida (link),y 




LK 


2090 


sec 






FM 


1330 beq nextlink 


;*eo test- 


BM 


2100 


sbc #10 






MB 


1340 my 




ME 


2110 


bcc cafe 






CM 


1350 cmp oldstf ng,x 


;^is itthe target- 


EC 


2120 


inx 








1360 bne newtesT 




DL 


2130 


bne num 






GD 


1370 mx 




MM 


2140Ga)G 


txa 






EL 


1330 cpx #1 


;-is it first char- 


HC 


2150 


or a #$30 






JJ 


1390 bne testnext 




ON 


2160 


jsr phnt 






FL 


1400 cpy #5 


;*doeslabe start iine- 


BD 


2170 


tya 






II 


1410 bne 7777 




NE 


2180 


ora #$30 






LH 


1 420 six preceeds 


;-disable pre-check- 


MP 


2190 


jsr print 






DE 


1430 beq testnexl 


;*must brnanch- 


PN 


2200 


Idx #0 






PN 


1440 7777 dey 




DM 


2210changnum 


Ida changes.x 






FG 


1450 dey 




KB 


2220 


jsr print 






EH 


1460 Ida {\\n^,y 




CJ 


2230 


inx 






OJ 


1470 my 




CM 


2240 


cpx #changesx- 


changes 




IK 


1480 iny 




AD 


2250 


bne changnum 






NA 


1490 sta preceeds 


;-preceeding char- 


KK 


2260 


jmp (chrvec) 






MC 


1500 testnexl cpx oldsize; 




GO 


2270 ;••••• change the string •••**■•• 




NL 


1510 bne getchar 




MF 


2280 changstr 


= ■ 


;• com pare lengths* 




CA 


1520 ; ••••■potential occurance--- 


FC 


2290 


Ida oldsize 






KG 


1530 Ida (link),y 


;-char after label- 


NH 


2300 


sec 






JJ 


1 540 jsr checkops 


;-check for de imiters- 


OE 


2310 


sbc newsize 






JE 


1550 bne newtest 




JD 


2320 


beq replace 






KO 


1 560 prior Ida preceeds 


;-char before* 


LD 


2330 


bcc 1 






KF 


1570 Jsr checkops 


;*forva id delimiters- 


JN 


2340 


sta howfar 


;*to move memory down* 




HG 


1580 bne newtest 




CM 


2350 


jmp lessmem 






DP 


1590 ;••••• found an occurance •■•••••■• 


CM 


2360 1 1 


eor #255 


;^get twos compliment- 
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IL 


2370 dc 


FN 


3140 stx moveto + 2 




LC 


2380 adc #1 


FB 


3150 ;*•'• start pulling memory down •-- 




HP 


2390 sla howtar ;<to move memory up* 


DF 


3160 movefrom Ida $fttf ;-selfmod* 




KK 


2400 imp moremem 


MF 


3170moveto sta $ffff 




FJ 


2410 ;•"* replace old string ••«"•*--• 


GA 


3180 inc movetrom + 1 ;*pointmove!o nextbyte- 




WN 


1 ■* 

2420 rep ace = • 


MM 


3190 bne nnn 




ND 


2430 jsr pull abet 


CC 


3200 inc movefrom + 2 




MP 


2440 jmp newtest 


AJ 


321 nnn inc moveto + 1 




EN 




AP 


3220 bne ooo 




UO 


' 1 

2460 putlabe = - 


FL 


3230 inc moveto + 2 




HL 


2470 Idy indexibf ;*index start o1 string* 


CK 


3240 000 da movelo + 2 




HP 


2480 Idx #0 


BA 


3250 cmp sov + 1 i'see if sov reached- 




KW 


2490 yyy Ida newstrng.x 


KE 


3260 bne movefrom 




CM 


2500 sta {ink),y 


KL 


3270 Ida moveto +1 




KK 


2510 inx 


AH 


3280 cmp sov 




IL 


2520 iny 


PD 


3290 bcc movelrom 




1 


2530 cpx newsize 


EN 


3300 Ida sov ;*correct sov pointer* 




E 


2540 bne yyy 


PG 


3310 sec 




CO 


2550 rts 


IF 


3320 sbc howfar 




DD 


2560; '•••• push memory up by howfar*** 


JG 


3330 bcs mmm 




KP 


2570 moremem = ■ 


LD 


3340 dec sov + 1 




LC 


2580 Idx sov ;*selt made address- 


AA 


3350 mmm sta sov ;-sov now owered* 




CA 


2590 stx taketrom + 1 


PI 


3360 mp re ink ;*adjusl inks- 




IL 


2600 Idx sov + 1 


HO 


3370 ,*•"■- -print ,messages'--" -*"■ 




IB 


2610 stx takefrom + 2 


ID 


3380 errmsg = - 




NB 


2620 tda howfar i-get howfar m a* 


HC: 


3390 .asc " to — hange string " 




ML 


2630 etc 


LG 


3400 byte 13 ;-carriage return* 




NJ 


2640 adc sov 


AA 


3410 asc " c,<oidstnng>,<newstnng> 




NL 


2650 bcc www 


GF 


3420 errmsgx - • 




IL 


2660 inc sov+t 


JM 


3430 changes - • 




KO 


2670 www sta sov ; *sov now reset up* 


10 


3440 asc " a terations made to source" 




DO 


2680 sta putilat + 1 


DJ 


3450 changesx = - 




GL 


2690 Ida sov-t-1 


EG 






IP 


2700 sta putital + 2 


BN 


3470 express = - 




IG 


2710 ;•**• start pushing memory up '■••* 


Al 


3480 asc "tf'.tasci values* 

- — — H U 




OL 


2720taketrom Ida $ffff ;*selt modifying* 


IE 


3490 asc , 




HK 


2730putilat sta $fftf 


BG 


3500 asc ";" 




GM 


■ 2740 dec takefrom + 1 ;-movetakefrom ptr down- 


KG 


3510. asc "-■ 




lA 


2750 da takef rom + 1 


DG 


3520 asc ")" 




KM 


2760 cmp #$ff 


MG 


3530 asc '{" 




Gk! 


2770 bne uuuu 


NH 


3540 .asc "/" 




DC 


2780 dec takefrom + 2 


Fl 


3550 asc "-" 




AG 


2790 uuuu dec putitat+1 


Ml 


3560 asc "*" 




NB 


2800 Ida putitat+l 


HJ 


3570 .asc " + ' 




MP 


2810 cmp#$ff 


CL 


3580, asc "<" 




OM 


2820 bne tttt 


OL 


3590 asc ">" 




HD 


2830 dec putital + 2 


Hf^ 


3600 asc " = ■ 




KM 


2840 tttt Ida takefrom + 2 I'see it done* 


OH 


3610. asc ' ' 




El 


2850 cmp labelend + 1 


DK 


3620 . byte $aa, " + " -as basic tokens* 




El 


2860 bne takef rom 


GP 


3630 byte Sab;"-" 




A 


2870 da takefrom + 1 


FP 


3640.byte$ac;'*" 




AG 


2880 cmp tabelend 


EB 


3650 .byte Sad;'/' 




JL 


2890 bcs takefrom 


LE 


3660 byte $b1 ;'>' 




EL 




OF 


3670.byte$b2;" = " 




LD 


2910 relink = * 


JF 


3680 .byte $b3;'<" 




HC 


2920 jsr putlabe 


OB 


3690 .byte 0; endofhne 




JC 


2930 tya 


OL 


3700 byte 1 ; begin of line 




P 
CO 


2940 pha 
2950 Ida link 


HH 


3710expressx = * 








IF 


2960 Idy link + 1 






FH 


2970 sta strt ink 






LO 


2980 sty strtlink+1 






FA 


2990 jsr rechain 






AE 


3000 pla 






BJ 


3010 tay 






AE 


3020 jmp nev^est 






HJ 


3030,***-* less memory needed -t..*.*. 






N 


3040 lessmem =■ - 






JM 


3050 Idx labe end + 1 ;*start at end ot labe * 






AB 


3060 stx movefrom + 2 






KA 


3070 Ida labelend ; 






AC 


3080 sta movefrom + 1 ; -self made address* 






OJ 


3090 sec 






MH 


3100 sbc howfar 






PJ 


3110 bcs ppp 






HO 


3120 dex 






CG 


31 30 ppp sta moveTo + 1 
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An R65C02 Assembler 



Gary L. Anderson 
Cedar Rapids, lA 



. . .a pin for pin direct plug-in replacement for tfie NMOS 6502 



Introduction 

Many thanks lo Eric Brandonfor his fine article in the June 1981 issue 
of COMPUTE! enlitled "Assembler in Basic (or the PET", Some of the 
reasons he presented al thai time for writing The program fit my 
situation quite well. I didn't want to spend $200 for an assembler and 
because ( was new to machine language ( wanted something simple I 
could dabble with but would still calculate branches and jumps. 

Based on the knowledge gained from the article, I wrote the following 
assembler and as time went by i found one thing or another to add, 
change, or upgrade. The assembler was written in BASIC and com- 
piled using PET SPEED (you can get the compiled version from the 
Transactor disk for this issue), and its main feature is the inclusion of 
the new op codes for the recently announced CMOS version of the 
6502 microprocessor. Other improvements include adding cassette 
file and disk file storage of source code, linker disk file capability, full 
commenting capability of source files and linker files, find symbol 
command, "BYT" mnemonic, and finally "<" and ">" operand 
specifiers for lat>eis and equates. 

What is an R65C02? 

It is a pin for pin direct plug-in replacement for the NMOS 6502 with 
its manufacturing process being CMOS (Complementary Metal Oxide 
Semiconductor). As a matter of fact 1 wrote this article on my 4032 PET 
with an R65C02 plugged in to replace the NMOS version, (ts power 
consumption is advertised at being only four mA per MHZ with up to 
four MHZ versions specihed on Rockwell's data sheet. This is obvi- 
ously not much of a concern in the PET with an ample power supply 
and a clock of one MHZ hut holds interesting possibilities for battery 
operated high-speed portable computers. 

The most important nnprovement of this CMOS version is the ex- 
panded op code set with all of the existing op codes oi the NMOS 
version to result in a powerful instruction set. The new op codes fall 
into two categories: new instructions, and added addressing modes of 
old instructions. Figure i shows all of the new op codes in alphabetical 
order of their mnemonic. There are 45 op codes covering 12 new 
instructions and H op codes covering new addressing modes of 1 1 old 
instructions for a total of 59 new op codes. 

Another improvement is the determination of undefined op codes. 
They are now all no ops but beware, some are two byte and some 
three byte no ops of various machine cycle lengths. If one specifies 
only one byte of a two byte no op or two bytes of a three byte no op a 
crash will result. One byte no ops are at X3 and XB, two byte no ops at 
02, 22. 42, 62, 82, C2, U, 44, 54, D4, and F4, and three byte no ops at 
5C. DC, and FC. The multiple byte no ops from my experimentation 
need not be all the same byte, it appears that the "filler bytes'' after the 
first byte can be anythiiig. 



Other improvements are covered in my second reference and include 
incrementing the page address for the indirect JMP when Ihe two 
operand bytes fall on either side of a page boundary, eliminating a 
read cycle of an invalid address and instead reading the last instruc- 
tion byte during indexed addressing across a page boundary, chang- 
ing Read/Modify/ Write instructions from one read and two write 
cycles to two read and one write cycle and changing the decimal flag 
from indeterminate after reset to initialized to binary mode after reset 
and interrupts. Also in the NMOS version the N,V and Z flags were 
invalid after a decimal operation; they are valid in the CMOS version. 
Finally, if an interrupt occurs after the fetch of a BRK instruction the 
NMOS version will igrore the BRK vector and load the interrupt 
vector. The CMOS version will execute the BRK. then execute the 
interrupt. 



The New Instructions 

BBR{0-7) and BBS(0-7) will branch on bit reset and branch on bit 
set respectively. These are three byte instructions. The addressing 
mode is defined as zero page because the particular bit being analyzed 
resides in the zero page location defined by the second byte. The third 
byte is the branch byte. The fourth character in the mnemonic 
identifies the bit thai will be analyzed. 

BRA will branch always. No more does one have to use a three byte 
JMPtohoparoundafewbytesofcode, If the destination is within 255 
bytes then use BRA and save a byte because it only takes two bytes. 

PHX, PHY, PLX, PLY will let a programmer push or pull X and Y 
registers to or from the stack directly. Transferring to or from the 
accumulator is no longer necessary when saving and restoring these 
two registers. 

RMB(0-7) and SMB(0-7) will reset memory bit and set memory bit 
respechvely. These are two byte instructions. The addressing mode is 
defined as zeropage because the particluar bit being changed resides 
in the zero page location defined in the second byte. The fourth 
character in the mnemonic identifies the bit that will be changed. 
These two instructions combined with BBR(0-7) and BBS(0-7) pro- 
vide for very easy bit manipulation and conditional branching on bit 
logic states, 

STZ will store zero to any location. No longer does one have to load 
the accumulator with *$00 then store the accumulator not to mention 
the possibility of having to save away the original contents of the 
accumulator and restoring it. Four addressing modes are provided, 
absolute, zero page, absolute, X and zero page^X. 
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TRB and TSB are called test and set bits and test and reset bits 
respectively. With these instructions one can resei or set any one or all 
bits of any location. Before executing these instructions the accumula- 
tor must t>e loaded with a byte representing the bits to be reset or set. 
Example: reset the high order nybble of location $1234. 

LDA '$F0 
TRB $1234 

Both absolute and zero page addressini^ modes are provided. 



To make a selection type in the letter shown in reverse video of the 
operation wanted. If an illegal selection is made a new menu is 
displayed. 

INPUT When entering this operation the program will ask for a 
starting line number; enter it and hit return. If starting a new machine 
language program or module always start with line number one. 
Although line number zero technically does exist do not use it 
because it is used by the program to keep track of the number of total 
lines used when writing or reading source or linker Jiles to cassette or 
disk. 



New Addreftfling Modes Of Existing Instmclions 

As can be seen in Figure 1 of the 14 new op codes covering existing 
instructions eight are indirect addressing, those being ADC^ AND, 
CMP, EOR. LDA. ORA, SBC, and STA. JMP has been given a new 
addressing mode being (Indirect. X). BIT has three new ones, Immedi- 
ate, Zero Page,X and Absolute,X. Last but surely not leas! is accumula- 
tor addressing for DEC and INC. Many times have I wanted to 
decrement or increment the accumulator and now ( can. 



About The Program 

The program listing shown takes 10,031 bytes* exactly. This is a two 
pass assembler, the first pass to generate a symbol table and the 
second pass to generate the object code. The two POKEs in line one 
set the top of memory and lop of strings to reserve the upper 4.096 
bytes of ram ($7000 to $7FFF) for object code assuming 32K of RAM 
total. The first line of an assembly would then be: 

• - $7000;sys28672. 

For a 16k PET change the two POKEs to whatever is convenient. For 
1 ,024 byles of reserved RAM, POKE in a value of 60 instead of 11 2 that 
is shown. The first line of an assembly would then become: 

* = S3c00:sysl5360 

Also reducing the values o( 'MEM* and 'M2' might t>e necessary. 
MEM' sets the total number of lines permitted per source module and 
'M2' the total number of equates and labels that can be stored in the 
symbol table. The compiled version mentioned earlier will not ht into 
a 1 6K PET since it lakes just over 21 K bytes of memory. 

For large assemblies containing lots of comments that would normally 
eat up tons of RAM, linker disk file capability has been added. Instead 
of writing one large source file one can break it up into smaller 
"modules" that reside on disk. The linker file then brings in each 
module one at a lime, first to generate a symbol table, and again to 
generate the object code. Standard BASIC 2.0 disk commands are 
used, so the program will run on the C64 as well as BASIC 4,0 
machines. No provision for a linked assembly was made for the 
cassette. For those wanting to modify the program a detailed break- 
down on program structure is given in Figure 2. 



Program Operation 

MENU Upon running the program the menu appears and the mode 
of operation automatically defaults to "source" which appears in 
reverse video. Source mode, and the alternate Linker mode can be 
toggled by hitting return without making a selection from the menu. 



The line number will be displayed at the beginning of a new line and a 
non-blinking cursor will be displayed. If a line is to be comments only 
then hit a semicolon immediately after the line number. The semico- 
lon tells the program to begin a comment field and can only be used at 
the beginning of a comment held, A full line of comments in source 
mode is 71 characters long and in linker mode is 73 characters long. If 
an error is made and it is caught before spacing to the next word or 
field then use the delete key to back up otherwise hit return to start a 
new line and type "FIX" and return. This will let the previous line l>e 
re-entered.Toget back to the menu from!NPUTjustlype"EXIT'ona 
new a line and hit return. 

When inputting a linker file, if the first character in a line is not a 
semicolon then a 16 character file name field is enabled and should 
contain the exact hie name of a file already on disk or one that will be 
on disk. If the file name is less than 1 6 characters and some comment- 
ing is necessary, just hit a semicolon and the program will automati- 
cally tab out to the comment field and display the semicolon and a 
non-blinking cursor. The comment field after the file name field is 56 
characters long. 

When inputting a source file, if the first character in a line is not a 
semicolon then a six character symbol field is enabled for labels or 
equates. The first character of a label must fall In the alphabet from A 
to Z, If the symbol is less than six characters then hit the space bar 
once to automatically tab to the four character mnemonic field. If no 
symbol is to be entered on a particular line then immediately hit the 
space bar once to automatically tab to the mnemonic field. 

As just mentioned the mnemonic field is four characters long to hold 
the new mnemonics of the R65C02. There are two nonmnemonic 
operators that can be used in this held, an equals " = ^' sign for equates 
and '^BYT" for entering data. Use immediate addressing mode when 
using BYT If the entry in the mnemonic field is less than four 
characters then hit the space bar once to automatically tab to the 
operand field. If no operand or comments are to be entered on a 
particular hne then instead of spacing to the operand field just hit 
return to terminate the line. 

The operand field is a total of 13 characters in length. Again, if 
specifying a label or equate, the first character must be In the range 
from A to Z, If it is a number then the program will take that number 
as the value of the operand and not look it up in the symbol table. The 
operand specifiers include "*" for immediate addressing, "$" for 
hexadecimal, and '■%'- for binary. The specifiers ^' + '\ ^>", and "<" 
can only be used in combination with labels and equates and are used 
as follows: " + " to increment the value of the operand, ">" to specify 
the hi byte of the address containing the operand, and "<" to specify 
the lo byte of the address containing the operand. These latter three 
specifiers can not be used in combination with one another on the 
same line. One can however use as many " -i- " specifiers on the same 
line after an operand within the field. 
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If comments are lo be added after ttie operand field and tlie operand 
field fias not been exiled by using all 13 cfiaracters then hit ifie 
semicolon and !he program will automatically tab to the comment 
field and display a semicolon followed by the non-blinking cursor. If 
the cursor is in Ihe mnemonic field hit a space to enter the operand 
field then a semicolon lo enter the comment field. To terminate the 
line just hit return. The comment field after the operand field is 31 
characters long. 

DELETE The program will ask for "FROf^TO" line numbers. When 
deleting just one line enter that line number for both from and to. 
Delete operates the samt for both source and linker modes. 

INSERT To add blank lines in the middle of existing source or linker 
files use the insert command. A prompt will ask for the first line and 
number of lines. The first hne is the line that is to be "pushed down". 
Example: to insert three blank lines between lines 7 and 8 answer the 
prompt with S.3 and return. Keep in mind that if the array, be it source 
or linker, is completely full then in the above example three lines will 
be ''thrown off" the end of the array. To enter information in these 
three blank lines just go back to INPUT 

LIST To list lines to the screen make this selection and answer the 
prompt asking for "FROM,TO" line numbers. If you specify the end 
line as higher than the last line, the LIST routine will continue 
showing empty lines - hit any key to terminate the LiSTing. No 
provision was made to list source code to Ihe printer. Listing to the 
printer can be done during assembly, 

WRITE FILE To save a source or linker file to tape or disk enter a 
"W" from the menu and answer the prompts. The program will ask 
first if the media is tape or disk. Secondly it will ask for a name lor the 
file and in the case of disk will also ask for a drive number. When all 
the prompts are answered the program then begins from the end of 
the array and looks for a line with any information in it to determine 
Ihe size of the array. When it finds an element in the array that is not a 
null string It places that number into element zero and then saves the 
elements from zero to the last line in a sequential format. When 
writing a file to di,sk the disk status and file name is displayed on the 
screen before returning lu the menu. 

READ FILE Being the sister command to WRITE FILE, READ FILE is 
similar with minor difference, A prompt will ask for the type of media 
and when reading in a file from tape no file name is asked for. When 
the length of the file is determined by reading element zero off the 
tape each line of code is displayed on the screen. Waiting for a large 
array to come in from tape is rather boring and watching it lumber in 
helps break the monotony. 

When reading in a file from disk, a prompt will ask for the file name 
and drive number. The program then reads in element zero, deter- 
mines the length, and reads in the rest of the array. When reading in a 
file from disk, the disk status and file name is displayed on the screen 
before returning to the menu. 

After a file is read in all elements of the array after the last line number 
are set to a null string A previous file could have been longer than the 
one just read in and if making minor edits and re-saving or assem- 
bling those extra lines would cause unwanted results. 

ASSEMBLE The first prompt to be answered asks if the listing 
destination is the screen or printer. When assembling source code for 
the first time I always dump to the screen because of the possibility of 
errors. When in source file mode no more prompts are asked for. 



When assembling a single source file the code must already reside in 
RAM by either INPUT or READ FILE. When assembling in linker file 
mode a prompt will ask for the name of the linker file and drive 
number. No files are needed in RAM, they must all reside on the same 
disk including the linker file. The disk status and file name are 
displayed on the screen lor each file fetch- 
There are a number of error messages that will inform the operator of 
the reason of an aborted assembly, f was amazed to discover how easy 
it is to use an equate name or label twice In a large linked assembly so 
[ included some checking and a response of "DUPLICATE SYMBOL 
ERROR" if it happens again. Other error messages include "UNDE- 
FINED SYMBOL ERROR", ^ILLEGAL MNEMONIC'^ 'ILLEGAL AD- 
DRESSING MODE", and "TOO LONG CONDITIONAL BRANCH". If 
an error occurs during an assembly the program will stop, display the 
error, and go back to the menu. The source file with the problem is left 
in ram so just go back to the source file input mode and make the 
fixes. Do not forget to save the fixed file to disk in the case of a linked 
assembly. 

HND SYIMBOL If an assembly slops with a "DUPLICATE SYMBOL 
ERROR" or if the necessity arises to find out if a particular equate or 
label name has already been used, then use the find label command. 
A prompt will ask for the symbol name and if in linker mode, will also 
ask for the linker file and drive number. When finding a symbol in 
linker mode, the screen will display the source file name with the line 
number and line of code for every match found. When in source mode 
then just the Une number and line of code will be displayed for each 
match found in f^M. 

QUIT When done hit "Q" from the menu and the BASIC version will 
respond with "GET BACK IN WITH GOTO650". The compiled version 
omits this message because there is no line 650 to go to. When using 
"GOTO 650" to get back in the BASIC version existing variables and 
source code will be preserved from the previous RUN. 



Examples 

Eric Brandon included a machine language test program in his article 
that wrote every character to every location on the screen and is 
duplicated here in Figure 3A. Compare the original version, in this 
case assembled at $7000, with a slightly improved version that lakes 
advantage of some new op codes with full comments in Figure 3B. 
This new version will only run with an R65C02 plugged into the PET. 
Memory consumption of the new routine's object code has been cut 
by approximately one third, mostly because of being able to branch 
on bit status instead of comparing bytes and being able to increment 
the accumulator instead of a memory location. I have shown in the 
comments the total length of the field widths. A full length comment 
line can accept 7i characters and comments after the operand field 
can hold 31 characters. 

An example of a linker file is shown in Figure 4, Note that the same 
commenting capability is available when writing a linker file. A full 
length comment line can accept 73 characters and comments after the 
file name can hold 56 characters. Every source file specified in a linker 
tile must reside on the same disk as the linker file. The total number of 
lines a linker file can hold is 64 which should be plenty, however if 
this quantity needs to be changed then adjust the variable 'LK' in line 
one. 
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Final Odds and Ends 

I found that when compiling the assembler with PET SPEED, Ihe 
NMOS 6502 must be reinstalled ia the PET. Apparently the designers 
of PET SPEED used an undefined op-code that only the NMOS 
version can decode properly or used the problem in the indirect JMP 
to effectively encrypt their compiler, at any rate during the compila- 
tion PET SPEED goes off into never never land with the CMOS 6502 in 
place. However, an already compiled program works just fine with an 
R65C02 plugged in, (The compiled version is included on Transactor 
Disk '6) 

GTE's G65SC02 does not have the bit manipulation instructions nor 
the branch on bit instructions so don't try to use those instructions on 
GTE's chip. 

References: 

1, Eric Brandon, "Assembler in BASIC for the PET", COMPUTE!, June 

1981. 
2- Rockwell International Corporation, Semiconductor Products Divi- 
sion, ''R65C02", 1984 DATA BOOK. 

Gary L. Anderson 
1528 34th St. S.E. 
Cedar Rapids, IOWA 
52403 



Editors Note (and*) 

The program may no longer be 1 0,03 \ bytes long. Gary's original used 
BASIC 4.0 disk commands but they've since been changed to their 
equivalent BASIC 2.0 counterparts. Also, additional tests for ST and 
disk status were inserted following OPEN commands, etc, to counter 
the automatic lest performed by DOPEN. The reasons? Although you 
can't plug an R65C02 into a Commodore 64, Ihe assembler will still 
work, as long as you don't try to use any of the extra op-codes (unless 
you intend to transport them lo an R65C02 machine). 

The first two POKEs will naturally have to be changed. Add 3 to both 
addresses lo assemble programs at $7000. However, the 64 has 8 
more K of memory above $8000. You can move the pointer up some, 
or if youVe planning to assemble programs in RAM at $C000, you can 
omit these two POKEs altogelher. 

Gary has structured his storage files with a somewhat familiar format. 
A quick look with Superscript shows that Gary's files are so close to 
Ihe CBM Assembler formal that it's hard to imagine them being 
incompatible. Source lines are written to the file without line num- 
bers. Shifted spaces are used lo separate fields and extra shifted spaces 
indicate blank fields. The only difference thai will need attention is 
the very first line which indicates the lota! number of lines in the file. 
If this is deleted, the source files from Gary's assembler should be 
totally compatible wifh Ihe Commodore Assembler. PAL users will 
find a CBM to PAL conversion program included with the PAL 
package. Both of these assemblers are written in machine language 
making them somewhat faster. Should you become more akin to 
machine code and decide lo get either of these assemblers, your 
existing source files will only need a little work to be transportable. 



Note: The listings shown have been generated by the Assemble 
option of Gary's assembler. The first lines output are the label equates 
that were defined within the source code. To enter these programs, 
start with line 1 and continue from there, omitting the assembled 
address and hex values. Remember, the SPACE bar moves the cursor 
to the next field and each field must contain the proper type of data (ie. 
labels in the 1st field, mnemonics in the 2nd field, operands in the 3rd 
field, comments in the 4th field, etc.) 



Figure 2. Program Structure Breakdown. 



Lines 


Function 


10-20 


Initialization 


30-120 


Separate lables, op codes, and operands 


130-150 


Separate source file name from comments 


160-360 


Determine the value of the operand 


370-380 


Find the length of the source array 


390 


1 Clean out the remainder of the source array 


400-410 


Find the length of the linker array 


420 


Clean out the remainder of the linker array 


430-570 


Data statements for op codes 


580-600 


Convert hex to decimal 


610 


Convert binary lo decimal 


620-640 


Convert decimal lo hex 


650-740 


Prim menu prompt, get command 


750-780 


Input lines executive 


790-850 


Delete lines 


860-920 


Insert lines 


930-1070 : 


List lo screen 


1080-1230 


Write file to tape or disk 


1240-1410 


Read file from tape or disk 


1420-1620 


Assemble executive 


1630-1820 


Find symbol 


1830-1990 


First pass, create symbol table 


2000-2580 


Second pas*;, assemble source code 


2590-2750 


Input source file 


2760-2940 


Input linker file 


2950-3080 


Input from keyboard subroutine 
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Figure I The new op codes in order of Iheir mnemonic. In commenl field (1) denotes 
new instruction and (2) denotes new addressing mode of old instruction. 



lAf^ 



V^ 



absolu = 


S1111 immedi = $0C 


offset = $7000 




1 


; new 


op codes on the r65c02 


2 




• 


. 


3 




absolu 


^ 


4 




immedi 


= 


5 




ind 


^±± 


6 




zeropg 


t= 


7 


7000 


72 33 offset 


adc 


8 


7002 


32 33 


and 


9 


7004 


Of 44 f9 


bbrO 


10 


7007 


1f 44 f6 


bbri 


11 


700a 


2f 44 f3 


bbr2 


12 


700d 


3f 44 fO 


bbr3 


13 


7010 


4f 44 ed 


bbr4 


14 


7013 


5f 44 ea 


bbr5 


15 


7016 


6t 44 67 


bbr6 


16 


7019 


7f 44 e4 


bbr7 


17 


701c 


8f 44 el 


bbsO 


18 


701f 


9f 44 de 


bbsl 


19 


7022 


af 44 db 


bbs2 


20 


7025 


bf 44 d8 


bbs3 


21 


7028 


cf 44 d5 


bbs4 


22 


702 b 


df 44 d2 


bbs5 


23 


702e 


ef 44 cf 


bbs6 


24 


7031 


ff 44 cc 


bbs7 


25 


7034 


8922 


bit 


26 


7036 


34 44 


bit 


27 


7038 


3c 1 1 1 1 


bit 


» 26 703b 80 c3 


bra 


29 


703d 


d2 33 


cmp 


■*^30 


703f 


3a 


dec 


31 


7040 


5233 


eor 


*32 


7042 


la 


inc 


33 


7043 


7c 33 00 


jmp 


34 


7046 


b2 33 


Ida 


35 


7048 


12 33 


ora 


36 


704a 


da 


phx 


37 


704b 


5a 


phy 


38 


704c 


fa 


pix 


39 


704d 


7a 


ply 


40 


704e 


07 44 


rmbO 


41 


7050 


1744 


rmb1 


42 


7052 


27 44 


rmb2 


43 


7054 


37 44 


rrnb3 


44 


7056 


47 44 


rmb4 


45 


7058 


57 44 


rmb5 


46 


705a 


67 44 


rmb6 


47 


705c 


77 44 


rmb7 


48 


705e 


f2 33 


sbc 


49 


7060 


87 44 


smbO 


50 


7062 


97 44 


smbi 


51 


7064 


a7 44 


smb2 


52 


7066 


b7 44 


smb3 


53 


7068 


c7 44 


smb4 


54 


706a 


d7 44 


smb5 


55 


706c 


e7 44 


smb6 


56 


706e 


f7 44 


smb7 


57 


7070 


92 33 


sta 


58 


7072 


9c1 1 1 1 


stz 


-^59 


7075 


9e 1 1 11 


stz 


*60 


7078 


64 44 


stz 


*61 


707a 


74 44 


stz 


62 


707c 


1c1l11 


trb 


63 


707f 


14 44 


trb 


64 


7081 


Oc 1 1 1 1 


tsb 


65 


7084 


04 44 


tsb 



$0033 zeropg - $0044 



$7000 
$1111 
$22 
$33 
$44 
(ind) 
(ind) 

zeropg, off set 
zeropg, off set 
zeropg, off set 
zeropg, off set 
zeropg, off set 
zeropg, off set 
zeropg. off set 
zeropg, off set 
zeropg, off set 
zeropg, off set 
zeropg, off set 
zeropg, off set 
zeropg, off set 
zeropg, off set 
zeropg, off set 
zeropg, off set 
#immedi 
zeropg, X 
absolu.x 
offset 
(ind) 

(ind) 

a 

(ind.x 
(ind) 
(ind) 



zeropg 

zeropg 

zeropg 

zeropg 

zeropg 

zeropg 

zeropg 

zeropg 

(ind) 

zeropg 

zeropg 

zeropg 

zeropg 

zeropg 

zeropg 

zeropg 

zeropg 

(ind) 

absolu 

absolu.x 

zeropg 

zeropg,x 

absolu 

zeropg 

absolu 

zeropg 



;2 

•2 

1 
1 
1 
1 
1 

[1 
f1 



branch on bit reset 
brancfi on bit 1 reset 
branch on bit 2 reset 
branch on bit 3 reset 
branch on bit 4 reset 
branch on bit 5 reset 
branch on bit 6 reset 
branch on bit 7 reset 
branch on bitO set 
branch on bit 1 set 
branch on bit 2 set 
branch on bit 3 set 
branch on bit 4 set 
branch on bit 5 set 
branch on bit 6 set 
branch on bit 7 set 



branch always 



;2 

1}push X onto stack 
(1) push y onto stack 
(^) pull xfrom stack 
pull y from stack 
reset memory bit 
reset memory bit 1 
reset memory bit 2 
reset memory btt 3 
,^ reset memory bit4 
1) reset memory bit 5 
" reset memory bit 6 
reset memory bit? 

1 ) set memory bit 
1) set memory bit 1 
1) set memory bit 2 
1) set memory bit 3 
1) set memory bit 4 
1) set memory bit 5 
1) set memory bit6 
1) set memory bit7 

;2) 

1 ) store zero 
1) store zero 
1 ) store zero 
1) store zero 
1) test and reset bits 
1) test and reset bits 
1) test and set bits 
1) test and set bits 
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Figure 3A. The old NMOS version of writing every character to the screen. 



char = $7040 


scrn - SOObS again = $7008 


1 




• 


= 


$7000 




2 




char 


= 


$7040 




3 




scrn 


i=. 


$b5 




4 7000 


a9 00 


Ida 


#$0C 


1 




5 7002 


aS 




lay 






6 7003 


8d40 7C 


\ 


sta 


char 




7 7006 


85 b5 




sta 


scrn 




8 7008 


a9 80 


again 


Ida 


#SS0 




9 700a 


85 b6 




sta 


scrn + 




10 700c 


ad40 7C 


1 


tda 


char 




11 700f 


91 b5 


OOP 


sta 


{scrn),y 




12 7011 


c8 




iny 






13 7012 


dOfb 




bne 


loop 




14 7014 


e6b6 




inc 


scrn + 




15 7016 


a6b6 




Idx 


scrn + 




16 7018 


e0 84 




cpx 


#$84 




17 701a 


dOfa 




bne 


loop 




18 7010 


ee 40 7C 


1 


inc 


char 




19 701f 


dOe7 




bne 


again 




20 7021 


60 




rts 







Toop = $700f 



Figure 3B. The R65C02 version with full comments. 

scrn = $0020 again = $7007 toop = $7009 

1 ; 12345678901234567890123456789012345678901234567890123456789012345678901 



3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 



* new r65c02 version 

* this is a demo of the speed of machine language graphics, 

* this subroutine fitis the screen with every possible character, 

*$7000 = 28672 

* 



scrn 



7000 
7002 
7003 
7005 
7007 
7009 
700b 
700c 
700e 
7010 
7013 
7014 
7016 



a9 00 
a8 

64 b5 
32 80 
86 b6 
91 b5 

ce 

dOfb 

e6b6 

2f b6f6 

la 

dOfl 

60 



again 
loop 



Ida 

tay 

stz 

Idx 

stx 

sta 

iny 

bne 

Inc 

bbr2 

inc 

bne 

rts 



$7000 

$20 

#0 

scrn 
#$80 
scrn + 
(scrn),y 

loop 
scrn + 
scrn + ploop 

a 

again 



1234567890123456789012345678901 

temporary loc of scrn data 

clear accumulator 

clear y 

dear lo byte of screen address 

hi byte of screen address 

reset hi byte of screen address 

write char to screen location 

point to next screen location 

are 256 done? if not branch 

yes, point to next 256 

have 1 024 locatns been filled? 

yes, next character 

have all chars been written? 

yes back to basic 



Figure 4. Linker file example. Lines 1 and 1 1 show the maxiinum length of the commenting capability- 
Line 1 1 aho shows the maximum length of the file name. 

I ; 1234567890123456789012345678901234567890123456789012345678901234567890123 

3 !- 

4 ; • this is an example of a linker tile, each file name must be on the 

5 ; • same disk as the linker file. 

6 ;• 

8 file one ; first file to be pulled in 

9 file two ; second file 

10 filethree ;thirdfile 

II 1234567890123456 ; 12345678901234567890123456789012345678901234567890123456 
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LD 

FB 

EO 

EE 
CC 
PM 

HF 
GM 
DF 
MP 
HB 
IJ 
DL 

ME 

MA 
HJ 
FP 
DE 

KA 
EB 
PK 

NA 
NL 

PF 

IL 
LK 

DL 

GN 
BC 

OE 

HB 

EA 
NK 

LA 

00 

HC 
LP 

KO 
iC 
CK 
lA 
EF 
PC 

DO 

EA 

LI 



The R65C02 Assembler 

10poke53.112:poke49J12:mem = 500 

:m2 = 300:1k -64:m$^ ■s':open15,8.15 
20 print ''■Vdima${mem),s$(m2),v{m2)J(3),l$(fk) 

:h$:=~123456789abcdef' goto650 
30inpul#15Ae$.el.e2:e$ = str$(e)+\ "+eS+ "/ 

+ str$(e1)+\" +slr$(e2) 
40 return 

50I(1)-0:K2) = 0:I(3) = 0:I = 
60 forq = 1 tolen(a$(t)):itmid$(a$(t),q, 1 } = chr$(1 60} 

thenl = l + 1:t(l) = q 
70 ift<3thennexlq 

80lb$ = left${a$(t)J(1)-1) 

90 if1(2} = OthenocS = rJght$(a${t),q-l(1)-1):op$ = " " :return 

100oc$ = mJd$(a$(t),l(1) + 1J(2H(1)-1) 

110ifl(3} = 0thenop$ = right$(a$(t),q-t(2)-1);return 

120op$ = mid$(a$(t),l(2) + 1.i(3)-l(2)-1):return 

1 30 nm$ = " " :cm$ = ' " :forq = 1 tolen(f$G)) 

;z$ = mid$(l$G),q,1) 
140 ifz$ = ' ; ■ thennmS = left${l$(j),q-2) 

;cm$ = right$(l${j),len(l$G))-q + 1):return 
1 50 nextq: nm$ = IS{j). return 
160ad = 0.lo^0:hj = 
170q$ = left$(o1$,1):q1 =asc(q$) 
180if{q1>47andqK5e)or(q1>64andq1<91) 

orq$ = " $ " orq$ = ^ % " then200 
l90o1$ = righl$(o1$,len{o1$)-1):QOto170 
2D0q$ = righl${ol$,1):q1=asc{q$) 
210if(q1>47andq1<58)or{q1>64andq1<91) 

orq$ =" + " orq$ = " < " orq$ ='>' then230 
220o1S = left$(o1$jen(o1$)-1):goto200 
230 ifright${o1 $,2) = chr$(108) + ' x " 

thenol $ = left$(o1 $Jen(o1 $}-2);goto250 
240 ifrJght$(o1 $,2) = chr$(108) + " y " 

theno1$ = left${o1 $jen(o1 $)-2) 
250itright${o1$J}-")Mheno1$ = left$(o1$Jen(o1$)-1) 
260ifleft$(o1$,1)="$"thenn$ = right$(o1$Jen(o1$)-1) 

:gosub580:nu = v:return 
270ifleft$(o1$.1)='%"thenn$=rJght$(ol$,len(o1$}-T) 

:gosub610:nu = v;return 
280 ifasc{left$(o1 $, 1 )K58thennu = val(o1 $):return 
290 ifright$(Dl$,1)= " + '■theno1$ = len$(o1$,len(o1$)-1) 

:ad = ad + 1:goto290 
300Jfright$(o1$J)=''<"lheno1$ = left$(o1$Jen(o1$)-1) 

:lo = 1:goto320 
310ifright$(o1$,1)= ^>^theno1$ = left$(o1$Jen(o1$)-1) 

:hi = 1 
320 forw = 1tom2:ifs${w) = o1 $thennu = v(w);w = 999 
330 nexlw:ifw = m2 + 1thenprJnl"Pundefined symbol 

error " ;goto650 
340 iflothenn - nu;gosub620;n$= rightS(r$.2) 

:gosijb580:nij = v:return 
350 jfhithenn = nu:gosub620:n$ = left$(r$,2) 

:gosub580;nu-v:return 
360 nu = nu + ad:return 
370 fOfll - memtol step-1 ;ifa$(lf)<>'' " 

thena$(0) = str$(H);tl = 1 
380 nextll; return 

390 tori = vat(a${0)) + 1tomem:a$(i)= " " ;nexti;return 
400 forll = Iktol step- 1 :ifl$(ll)<> " - thGnlS(O) = str$(H):H = 1 
410 nextll:return 

420 fori = val(l$(0)) + 1 tolk;l$0 = "' : nexti:return 
430 dataadcn6ds65i69k7dl79p61 o71 q75m72,andn2 

ds25i29k3dl39p21 o31 q35m32 
440 dataaslh0an0es06kl eql 6, bbrOOf 1 1 f22f33f44f55f66 

t77f 
450databbs0ef19l2af3bf4cf5df6ef7ff,bcci90,bcsjbO, 

beqjfO, bjtr>2cs24i89k3cq34 
460databmij30,bnejd0,bpij10,braj80,brkg00,bvci50, 

bvsj70,clcg18,cldgd8,clig58 



DF 

OA 

NF 

CM 

LG 

EG 

DO 

FE 

OM 

10 

PA 
OB 
JM 

Kl 
GM 

NH 

FM 

GM 
PF 

MC 
Ml 
FO 
Al 

PB 
FG 

IG 

FG 
GB 



FC 
MD 
FF 
JH 
AD 
IE 
Ml 
Kl 
GC 



PL 
CO 

FJ 
ND 
LM 
GL 
DC 
DK 
DG 
HB 
MA 
KO 
KG 
HE 



470dataclvgb8,cmpncdsG5ic9kddld9pc1odlqd5rT)d2, 

Cpxnecse4ie0,cpynccsc4ic0 
4B0datadeGncesc6kdeqd6h3a,dexgca,deyg88, 

eorn4ds45i49k5dl59p41o51q55m52 
490datajncneese6kfeqf6h1ajnxge8,tnygc8, 

jm pn4cm6cp7c ,isrn20 
500dataldanadsa5ia9kbdlb9pa1ob1qb5mb2, 

Idxnaesa6ia2lberb6,ldynacsa4ia0kbcqb4 
510datalsrh4an4es46k5eq56,nopgea. 

oran0ds05i09k1dl19p01o11q15m12,phaQ48,phpg08 
520dalaphxgda,phyg5a,plag68,plpg28,plxgfa, 

plyg7a,rmb0071 1 7227337447557667777 
530datarolh2an2es26k3eq36,rorh6an6es66k7eq76, 

rtig40,rtsg60 
540 datasbcnedse5ie9kfdlf9pe1 of 1 qf5mf2,secg33, 

sedgf8,seig78 
550datasmb0871972a73b74c75d76e77f7, 

stan8dsS5k9dl99p81o91q95m92 
560dataslxn8es86r96.styn8cs84q94,stzn9cs64q74k9e, 

taxgaa,tayga8,frbn1cs14 
570datatsbn0csO4,tsxgba,txag8a,txsg9a,tyag98 
580 V = 0:iflen(n$)<4thenn$ - left$( " 0000 " ,4-len(n$)) + n$ 
590 forr2 = 1 to4:d$ = mid$(n$ j2,1):tv = asc(d$)-48 

:iftv>9thenW = W-7 
600 V = tv 1 6t(4-r2) + v: nexlr2;return 
610 v=^ O:forz = len(n$)lo1 step-1 

:v = v + val(mid$(n$,z,1)}*2t(len(n$)-z):nextz;return 
620 fd = int(n/4096).n = (n/4096-fd)*4096 

:sd = int{n/256):n = {n/256-sd)*256 
630td = int(nn6):n = int((n/16-td)H6) 

:r$-mid${h$,fd + 1,1) + mid$(h$,sd + 1,1) 
640r$ = r$ + mid${h$,ld-fi1} + mjd$(h^n + 1,1):return 
650itm$= "s'thenprint^ 
66Difm$= Tthenprint 
670 print" [3 spaces! 
6d0print^lflriput 
690 print" Q^Hpsemble 

command? "; 
700 getc$:ifc$ = ' ' then700 
71 ifc$ = chr$(13)andm$ = '^ s ^ thenm$ = " T 

:nrint^ li9lB ^:QOtQ650 
720 ifc$ - chrSf 1 3 1andm$ = " I " thenmS = " s " 

:nrint" keMiaa ":nntn650 

730 printcS 

740ifc$= " Q " thenprint " qget back in with 

|goto650B''^^d 
750 if c$<> ^ " then790 

760input^■lne^tn 

770 ifm$ = ~" andln>Oandln< - memthen2590 

760 ifm$ = ^ r andln>Oandfn< = fkthen2760 

790 ifc$<> " d " then860 

BOOinpufBines- from,to"ifl,ll 

810ifmS=Vtiien840 

820tort = fltoll:a$(t)^ ""inextt 

S30fort = IHomem-1:a$(t-ll + fl) = a$(t+1) 

:a$(t + 1)= "^:nextl:goto650 
840 fort = fltoll;l${t)='"':nextt 
850fort = lltolk-1:l${t-ll+fl) = l$(t + 1) 

;|$(t+l)= ■Vnextt:goto650 

860ifc$<>'n"then930 

870 input "Bines - first, number " ;fUI 

e80ifm$=T'then910 

890 foft = mem-lltoflstep-1 :a$(t + 11) = a${t):nextt 

900 tort = fltofl + 11-1 :a$(t) = " ' :nextt:goto650 

910forl = tk-tltoflstep-1:l$(t + ll) = l$(t):nextt 

920fort = fltof1+-ll-1;l${t)- " ":nextt:goto650 

930tfc$<>'rthenl080 

940 input "Bines - from,to ' ;fl.ll:prjnt 

950ifm$=~then1030 

960 fort ^fltoIhgetcSiifcSO" "thent = ll:goto1020 

970 iflen(a${t)) = Othenprintt:forel = 1 to250: next, goto 1 020 




rite tile 
art BBist ' 

ind symbol 
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MP 

AE 
NH 

EC 

ID 

Dl 
GG 
GC 
MN 
ME 
NN 
EG 
LG 
CL 
PG 

JP 
JH 

MK 

IJ 
EK 

JP 

MC 

tP 

EC 
FJ 

ID 
PG 
JC 
PB 

IF 
NJ 
DJ 
KP 

MD 
GG 
DE 
ME 
CP 

NK 
ON 
JD 

EN 
KJ 

FN 
10 
FO 
CP 
DP 
NJ 
GH 
CH 
NJ 

BP 

PD 
CB 

PD 
DF 
NO 



980itleft$(a$(t).1)= "; "lhenprintttab(6)a$(t):golo1020 

990gosub50:printttab(6)lb$tab(13)oc$tab(18)op$; 

1000ifl(3)>0thenprinttab(32)right$(a${l),len(a$(t))-l{3)) 

:gotol020 
1010 print 
1020ne>;n.golo650 

1030 for] = fltoll:getc$:ifc$<>" "then] -Il:goto1070 
1040 iflen(l$(j)) = 0thenprinti:forel = 1to250:next:goto1 070 

1 050 ifleft$(l$0), 1 ) = '^ " lhenprjntjtab{4)l$(j) gotol 070 

1060gosub130:printjtab(4)nm$tab(21}cm$ 

1070nextj:golo650 

1080ifc$<>'w"then1240 

1090pMnt"Btonnapeor|dBisK? '; 

1 1 00 getc$;jfc$ = "en1 1 00 

1110 printc$:ifc$<> " t " theni 1 60 

1 1 20 input ' name of file " ;n$ open2, 1 . 1 ,(n$) 

1130ifm$= ^I"then1150 

1 1 40 gosub370:tofi - 0toval(a$(0));print#2,a$(>) nexti 

:close2:goto650 
1150gosub400:fori = 0toval(l$(0));print#2J$(i):nexti 

;close2:goto650 
1160ifG$<>"d"then650 
1 170 input" Hname of llle,d^ive#^^$,d 

:open2.8,8.mid$(str$(d),2)+ ^^' +n$+ \s,w" 
1 180 gosubSOiifelhenprinteS" " n$.clQse2:goto650 
1190ifm$- '■rthen1220 
1200gosub370:fori = 0loval(a$(0)):print#2,a$(i):gosub30 

;ife<20ore = 50Ihennexti 
1 21 gosub30:printe$ " " n$:close2:goto650 
1 220 gosub400:fori = 0toval(l${0)):print#2J$(i):gosub30 

;ife<20ore = 50thennexti 
1230 gosub30:printe$ " " n$.close2:goto650 
1240ifc$<>"r"then1420 
1250print"BfromnQapeorBcQisk? "; 
1260getc$:ifc$= "^hen1260 
1 270 prtntcS: ifc$<> " t " Iheni 340 
I280open2,1.0 
1290ifm$= 'M^thenl320 
1300inpuI#2,a${0);fofi = 1tovaKa$(0)):inpul#2,a$(i) 

:prtnti;a$(i) 
1 31 nexti;close2 gosub390:goto650 
1320input#2,l$(0):forf=1tova1(l$(0)):(nput#2J$(i);printi;l$(i 
133Qnexti:dQse2:gosLjb420:goto650 
1340ifc$<>"d"lhen650 
1350 input ■Bname of file,drive#";n$,d 

:open2,8,e,mid${str$(d).2) + " : " + n$ 
1 360 gosub30jfethenprinte$ " " n$ cJose2:9olo650 
1370ifm$= 'rthenUOO 
1 380 input#2,a$(0):fori = 1 roval(a${0))jnpul#2,a$(f) 

:gosub30;tfe<20thennexti 
1390gosub30 printeS" ^' n$.close2:gosub390.goto650 
1400input#2J$(0):fori = 1loval(l$(0)).input#2.l$(i):gosub30 

:ife<20thennexti 
1 41 gosub30'prinle$ " " n$:close2 gosub420.goto650 
1420itc$<>"a"lhen1630 
1430pnnt"HtoH^3creenorPp|flrinter? "; 
1 440 getdvHdvS = Iheni 440 
1 450 printdv$:ifdv$ = '^ s " thendv = 3:goto14S0 
1 460 ifdv$ = " p " thendv = 4:goto1480 
1470golo650 

1480 closel :open1 .dv:sb = 1 :ifm$ = " T theni 500 
I490gosub370:gosub1830ln=1:pc = og:gosub2000 

: close 1^oto650 
1 500 input "Uname of linker file,drive# " ;l$,d 

;open2,8,8,mid$(str$(d),2)+ ^ ^ +1$ 
1510gosub30:ifethenprJme$" "I$:close2:golo650 
1520input#2J$(0);fQri = 1toval(l$(0)):inpul#2j$(i}:gosub30 

jfe<20thennexti 
1 530 gosub30:prmt "Q " e$ " " I$:close2:gosub420 

1 540 torpa = 1 to2'for] = 1 toval(l$(0)) 
1550iflett$(l$(i),1)=";"thengoto1620 



AF 
10 
BA 

JD 

Bl 
FH 

LI 
GH 

Dl 

tB 

LI 

LJ 

JO 
UL 

HG 

FJ 

AP 

II 

BK 

NO 

OP 
JC 

01 

EH 

HL 

BL 

KG 

MP 

AC 

AG 

KP 

AP 

GF 
BE 

PO 

KA 

BG 

HP 

FG 
GG 
PR 

FA 
BG 

NH 
GF 
CE 

EC 

KE 
EC 
LG 

DO 
KC 



1560gosub130.open2,8,8,mid$(str$(d),2)+ ":" +nm$ 

1 570 gosub30;ifethenprinte$ " " nm$:close2:goto650 
1580input#2,a$(0):fori = 1toval(a$(0)}:input#2,a$(t) 

;gosub30:ife<20thennexti 
1 590 gosub30:printe$ " " nm$;close2:gosub390 
1 600 ifpa - 1 thengosubl 830 
1 61 ifpa = 2thengosub2000 
1620 nextjJn = 1 :pc = eg :nextpa: closel :golo650 
1630ifc$<>^'f^then650 
1640 input "■symbol ";la$ 
1650ifm$=T"then1670 
1660gosub370:gosub1770:goto650 
1670 input "Hname of linker file,drive# " il$,d 

:open2,8,8,mid$(str$(d),2)+ ":" +■!$ 
1 680 go3ub30:itethenprinte$ " " I$:close2:goto650 
1 690 input#2,l$(0).fori = 1 loval{l$(0));input#2,l${i):gosub30 

:ife<20thennexti 

1700 gosub30:print "n " ^^ " " I$:close2:gosub420 

;fori==^1toval(l$(0)) 
1710lfleflS(l$(J),1)=^Mhengoto1760 
1720gosub130:open2,8.8,mld$(str$(d),2)+^■ +nm$ 
1 730 gosub30:ifethenprinte$ " " nm$:dose2:goto650 
1740input#2,a$(0):fori = 1toval(a$(0));input#2,a$(i) 

:gosub30:ife<20thennexti 
1 750 gosub30:printe$ " " nm$;close2:gosub390 

:gosub1770 
1760nexti:goto650 
1770fort=1toval(a$(0)).ifleft$(a$(t),1)='' ' 

orleft$(a$(t),1}= ^'■then1790 
1 780 gosub50. ifla$ = IbSthen 1 800 
1790nextt:return 

1800printttab(6)lb$tab{13)oc$tab(18)op$; 
1810ifl(3)>0lhenprinttab(32)nQhI$(a$(t),len{a$(l))-l(3)); 
1820 prinI:goto1 790 

1 830 fort= 1 toval(a$(0)}:ifleftS(a${t) J ) = " ; " theni 950 
1 840 9osub50;iflb$ = " " then1890 
1850jfoc$<>"= "thenlSSO 
1860o1$ = op$:gosub160:iflb$=^ "♦"Ihenpc^nu 

:og = nLj:goto1950 
1870s$(sb)^lb$:v(sb) = nu:n = nugosub620 

:gosubl970:goto1950 
1880 s$(sb) -lb$:v(sb) = pan = pc:gosub620:gosub1970 

1 890 ifop$ = ■ ' oropS = " a " oroc$ = " byf 

lhenpc = pc+1:goto1950 
1900ifnght$(op$,1)="<"ornght${op$,l)=">^ 

Ihenpc = pc + 2:goto1 950 
1910ifleft$(oc$,1)="j'^orleft$(oc$,2)= ^bb' 

Ihenpc = pc + 3;goto1 950 
1 920 ifieft$(oc$, 1 ) = " b " andocSO " bit " 

andoc$<> " brk " thenpc == pc + 2:goto1 950 
1930 o1$ = op$:gosub1 60:ifnu<256thenpc = pc + 2 

;golo1950 
1940pc = pc + 3 
1950nextl:print#1:return 
1960print#1,lb$spc(6-len(lb$))"' = $V$spc(6): 

:gosub1970:sb=^sb+ 1 
1970print#1,lb$spc(6-len(lb$))'' = $'r$spc(6); 
1980forq = 0tosb-1:i{s$(q) = s$(sb)thenprint"Bduplicate 

symbol error " :gQto650 
1 990 nextq:sb = sb + 1 :return 
2000 er = O:fort = 1 toval{a${0)) 
201 ifleft$(a$(t),1) = " ; " thenprint#1 , 

Inspc(5-len(str$(ln)))a$(t);;goto2580 
2020 gosubSO: ifoc$ =" ^" thenmvS - " [2 spaces] " 

:pc$= "[4 spaces] ':il = 0:goto2530 
2030 ifop$ = " ' thenamS = ^ g " :tl - 1 :golo2460 
2040 ifopS = " a " thenam$ =^ ' h ' :il = 1 ;goto2460 
2050 ifoc$= '■ byt "thenol S = op$:gosubl 60:tl = 1 

:mv$ == right$(n$,2}:golo2510 
2060 ifleft$(oc$,2) = " bb ^ then2320 
2070 if mid$(oc$,2,2) = ' mb ^ then2400 
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IH 


2080x = 0:y = 0:i==0;m=^0:z = 


BF 


261 ifIS = ^' " andg$ - ^ " lhena$( n) - ^ ■ 




■ FK , 


2090forq^1tolen(op$}:q$ = mid$(op$,q,-;):itq$= ")" 


1 


:prtnf[1 crsrleft]"g$;:tb = 8:x-0;lt = 71:goto2710 






theni = l;goto2110 


J 


2620 a$(ln) = i$:ifg$ = chrS(13)then2740 




PM 


2100ifq$= ■#"thenm = l 


, FO 


2630tb=13:x = 0:t = 4:gosub2950;aS(ln) = aS(ln) 




EE 


2110nexlq:torq=1tolen(op$)-1:q$ = mid$(op$,q,2) 




1 -+-chrS(1 60) + iS:ifg$ = chr$(1 3)then2740 




OK 


2120ifq$ = chr$(108)+ >"theny- 1;goto2140 


KH 


2640tb-18.x = 0:t = 13.gosub2950:ifi$=^" 




NE 


2130 ifq$ = chr$(108) + ^ x " thenx = 1 




andgS = chr$(1 3)then2740 




EL 


2140nexlq:o1$ = op$:gosub160 


EH 


2650 a$(ln) - a$(ln) + chr$(160) + J$:ifgS = chrS(1 3) 




CA 


! 2150itleft$(oc$,1)- "j"then2180 




1 then2740 




IC 


2160it!eft$(oc$,1)= "b^andocSO^brk" 
andoc$<>^bit'then2430 


LA 


2660ifg$=^'thenprint'' 1 crsr eft "tab(32)"; "; 
' :a${ln) = a$(n) + chr${160) + gS:goto2700 




NP 


2170ifnu<256then2240 


PB 


2670tb = 32:x = 0:t=1:gosub2950:ifiS= '- 




NB 


2180ifiandxthenam$- "p^:goto2230 




1 andg$ = chr${1 3)lhen2740 




MN 


21 90 ifxthenamS = " k " :goto2230 


ME 


' 2680 itiS = '■ " andgS =';" thenprint ' [1 crsr left ]; ' ; 




LO 


2200 ifythenamS = " 1 " :goto2230 




1 a${n) = a$On) + chr${160) + g$;lt-32:goto2710 




HM 


2210itithenam$= ^m" goto2230 


JJ 


2690 goto2730 




NA 


2220 am$ = ' n ^ 


GH 


2700tb = 34:x=1:t = 32 




KG 


2230so = int(nu/256):fo = (nu/256-3O)*256:i =3:goto2460 


KJ 


2710gosub2950:ifi$-^^andgS = chr$(13)then2740 




EO 


2240ffmlhenam$= "f .goto2310 


LE 


2720 aS(ln) = a$(ln) + chrS(160) + i$ jfg$<>chr$(13) 




NF 


2250 ifiandythenamS = ^o^:goto2310 




1 andx<>1tthen2710 




KG 


2260 rtiandxthenamS = " p " :goto231 


GH 


2730 jfg$<>chr$(13)thenprint 




DD 


2270 ifxthenamS = "q^ goto2310 


EN 


2740 In = In + 1 :if n>memthen650 




CE 


2280 ifythenamS = " r ^ :goto231 


DM 


2750 goto2590 




CB 


2290 ifithenamS = " m ' :goto2310 


GK 


2760 printin; tb =^ 4:x = It = 16:QOSUb2950 




MG 


2300 amS = " s " 




' ifiS^ 'exit''then650 




AN 


2310 fo = nu:il = 2:goto2460 


MM 


2770ifiS= MixMhenln = ln-1 




NJ 


2320amS = rightS(oc$,1):o1$=" '^02$= " " :\ =3 




:printchr$(-13'(asc(g$)<>13));:goto2760 




ID 


2330forq = 1tolen(op$) 


CD 


2780 jfiS = " " andgS = " ; " thenlS( n) = " ; " 




KM 


2340ifmid${opS,q,1) = chrS(108)theno1$-teft$(op$.q-1) 




:print" Icrsriett "g$;:tb = 6:x = 0;t=73:goto2900 






;o2$ = right$(op$, en(opS)-q) 


KF 


2790l$(n) = i$.ifgS = chr$(13)then2930 




FC 


2350 nextq 


PK 


2800ifgS= ";''thenprinttab(21)g$;.tb-23:x-0 




DA 


2360 gosubl60:ifnu>255thenprint"Pi egal addressing 




1 :t = 56.goto2890 






modeVgoto650 


FM 


2810jfx = ltthen2860 




HP 


2370 fo - nu.ol S = o2S-gosub160 ifnu>pc + 2 


lA 


1 2820gosub2950:ifiS= " "andgS = chrS(13)then2930 






thenso = nu-pc-3:ifso>1 27lhener = 1 


CM 


: 2830l$(n) = l$(ln)-h " " +i$:ifgS = chr$(13)then2930 




NP 


2380 ifnu<pc + 2thenso = 253 + nu-pc:ifso<128thenef = 1 


HN 


2840ifg$= '■; "thenprinttab{21)gS;:tb = 23;x = 




DG 


2390 goto2450 




:ll = 56:goto2890 




OD 


2400am$ = right$(oc$,1):i -2 o1$ = opS:gosub160 


FO 


2850 if x<> tlhen2820 




CK 


2410 ifnu>255thenprint''Qillega addressing mode" 
.goto650 


BO 


2860tb-21:x = 0:lt = 1:gosub2950:ifi$=''" 
andgS = chrS(1 3)then2930 




LH 


2420fo = nu.goto2460 


El 


2870 If iS = " " andgS = " ; " thenprint " 1 crsr eft " gS ^ " ; 




CG 


2430 am$= "j":iU2;ifnu>pc + lthenfo-nu-pc-2 




:lt-57:goto2890 






:Jffo>127lhener = 1 


OF 


2880 goto2920 




lA 


2440 ifnu<pc + 1 thenfo =^ 254 + nu-pc: iffo<1 28thener = 1 


KP 


2890 IS(ln) = IS( n) + " ;" 




CN 


2450 ifer^lthenprint' (too long conditional branch " 


IF 


2900 gosub2950:ifi$ = " " andgS = chr${1 3)then2930 






:goto650 


KK 


2910iS(ln) = IS(ln)+ " " +iS:ifgS<>chrS(13) 




IL 


2460restore:forw = 1to68;readiS:ifleft$(i$.3) = lefI$(oc$,3) 




andx<>ltthen2900 






thenw = 70 


ED 


2920 ifgS<>chr$(13)thenprint 




CH 


2470 nextw: ifw = 69thenprint ' Jillegal mnemonic " 


IM 


2930 n = n -+- 1 : If n> kthen650 






;goto650 


GJ 


2940 goto2760 




GK 


2480 forw = 4tolen(iS)step3: if mid$(iS,w, 1 ) = am$ 


EL 


29501$= ^'"jjrinttab(tb); 






then w = w:w = 32 


01 


2960print"Q Ql crsrieft]'; 




OG 


2490nextw:ifw<32thenprinfBi ega addressing mode " 


HP 


2970 getg$:ifg$= " " then2970 






goto650 


JJ 


2980ifgS>"z"org$<'" " 




ON 


2500 mvS = mid$(iSJw + 1 ,2):n$ == mvS:gosub580 


1 


andg$<>chrS(13)andg$<>chr$(20)then2970 


1 


KK 


2510 pokepc,v:ifi >1 thenpokepc + 1 ,fo;ifjl>2 


Fl 


2990x = x-+-1:ifgS = chr$(13)orgS = chr${20)then3040 






thenpokepc + 2,so 


BO 


3000ifg$=" "orgs- \' thenprint ^ \;retum 




CG 


2520n = pc:gosub620:pc$ = rS:pc=pc + tl:n = fo 


MJ 


3010ifg$= "/lheng$ = chr$(108) 






:gosub620:fo$ = rS:n = so:gasub620.soS = r$ 


BP 


3020 printg$i:i$ = iS + g$:ffx = tlhenreturn 




PE 


2530 tfj <3thenso$ = " 2 spaces " :Jfil<2 


P 


3030 goto2960 






thenfoS= " 2 spaces]" 


HM 


3040ifg$<>chrS(20)thenprint" ":return 




NA 


2540 print*^1 , nspc{5- en(str$(ln)))pc$ " " mvS " " 


BD 


3050 iflen(iS)<2then3070 






rightS(fo$.2)" '; 


BF 


SOeOprint" [2crsr eft] ^:x = x-2 




10 


2550 print#1 ,nghtS(so$,2) " " bSspc{7-len( b$))oc$, 




:i$ = left$(iS,len(i$)-1);goto2960 




K 


2560 print#1 ,spc(5- en(oc$))op$; ifl(3} - 0then2580 





3070 If en(iS) = OThenx = x-1 ;goto2960 




JA 


2570print#1,spc(14-len{op$})righl${a$(t),1en(a$(t))-l(3)); 


DP 


3080prinf [2crsrleft \:x = x-2:i$= " :golo2960 




KB 


2580 print#1 :ln = In + 1 :nextt:return 






ID 


2590pfintln,;tb = 6:x-0:t = 6:gosub2950 
:jfi$= 'exil"then650 






C 


2600ifiS= "fix"thenln = ln-l 

;printchrS(-13'(asc(g$)<>13));:goto2590 
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At this point in time John really appreciates the fact he bought 
the "Big Boss" joystick with the heavy duly extension cord 



"The fool. . .Obviously his problem is on line 1040. . , 
He's misplaced a Y coordinate with a control function/ 
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News BRK 

$4 Million "Computers and Children" 
Program Launch 

"Computers and Children", a new $4 million 
Ontario government program ensuring that 
Ihc children of this province will have equal 
and adequate access to computers and re- 
lated information technologies, was launched 
today by the Honourable Susan Fish, Minis- 
ter o! Citizenship and Culture and the Hon- 
ourable Larry Grossman. Treasurer. 

The first 15 of an eventual 230 community 
computer centres were opened by Ms. Fish 
and Mr. Grossman at Toronto's Central 
Neighbourhood House. Connected with To- 
ronto by an audio teleconference, the centres 
participating in today's ceremonies were: 
London, West Bay (Manitoulin Island), Corn- 
wall Island, Sudbury, Chatham, Peterbor- 
ough, and two in Chapleau. Six other centres 
in Metropolitan Toronto were opened imme- 
diately following today's launch. 

Approximately 4,000 microcomputers will be 
placed in communities across the province, 
under the new program funded by BILD 
(Board of Industrial Leadership and Develop- 
ment) and administered through the Minis- 
try. Community organizations such as 
libraries, museums, art galleries, and native, 
multicultural and service groups will house 
the computer centres. 

*The primary objective is to provide com- 
puters and computer learning to children, 
regardless of their ethnic or .socio-PcoEiomic 
background, to ensure that no child is de- 
prived of future employment prospects be- 
cause of a lack of computer knowledge," Mr, 
Grossman said. 

Up to 15 microcomputers, colour monitors 
and software packages will be placed in each 
centre using hardware from Apple, IBM, 
Commodore. Acorn and Atari, At least two 
hours of free time to students from kindergar- 
ten to grade eight, outside their regular 
school hours, will be provided with remain- 
ing time being available to the entire commu- 
nity at a minimal user fee. 

"The key to success of Computers and Chil- 
dren is partnership," Ms. Pish said. Ministry- 
trained co-ordlnalors will work with 
volunteer assistants to ensure thai the pro- 
gram meets the unique needs ol each com- 
munity, and private sector fund-raising will 
occur to finance each centre's ongoing opera- 
tions. The result of these partnerships will be 
entirely self-sufficient centres integrally in- 
volved i[i the development of their communi- 
ties. 

''Computers and Children" will certainly help 
young people prepare for future employ- 
ment, but it will also provide incentives for 



Late Nole 

[>3n'l forgel ihe Computer Fair (May 9th [hrough (he 12lh) at Toronto's brand new Metro 
Convention Cen[re ar (he fool of the CN Tower. This is the firsi major computer show for rhe 
downtown area and it should prove veiy entertaining. The TranaacEor will beat booth \72Q. 



Canadian software and hardware develop- 
ment improved language instruction for new- 
comers; the opportunity for parents to learn 
this new technology with their children; and 
for seniors to volunteer to help familiarize 
young people, as well as themselves, with the 
world of microcomputer," added Ms. Fish. 

This program will complement initiatives ex- 
isting in our schools. The new facilities will 
be located primarily to reach less advantaged 
young people who would not otherwise have 
access to this equipment outside the aca- 
demic setting. In addition, adults and small 
businesses may have access to the machines. 

In December of this year, another eight cen- 
tres are planned to open; Red Rock, Camp- 
belvilie, Etobicoke, Burlington, Deseronto, 
Windsor, and two in Ottawa, Another 1 1 are 
scheduled to open early in the new year: 
Trenton, North Bay, Hamilton, Foleyet, Sud- 
bury, Brantford, Winchester, St. Catharines, 
Fort Frances, Schumacher (Timmins), and 
Toronto. 

Stanford University {Children's learning L^b) 
in California, Edinburgh University (Chil- 
dren's Education Unit) in Scotland, and the 
Massachusetts Institute of Technology) Learn- 
ing Lab for Children) (MIT) have all expressed 
interest and enthusiasm for Ontario's plan to 
open up computers to the community on 
such a large scale, initiated by the Treasurer 
in his 1984 Budget, it is the first time a project 
like this has been undertaken. 

Ministry of Citizenship and Culture 
Program contact: Dorothy Netherwood 
Computers and Children 
454 University Avenue 
Toronlo,Ont, M5GiR6 416963-3304 



Events 

The Fourth Annual TPUG Conference. 

TPUG, The Toronto PET Users Group (and 
also the world's largest Commodore users 
group) is holding another "year end" confer- 
ence that will no doubt be every bit as enter- 
taining as their last three. 

Dates: Sat. May 25 &Sun. May 26, 1985 
9:30 a.m. to 5:00 p.m. (both days) 

Location: 252 BloorSt. W. 

(at St. George subway), 
Second Floor, Toronto, Ontario 

Activities; 

Full two-day program of speakers covering 
topics for beginners and experts. 
Club library (5000 -i- programs) at special con- 
ference price of $4,00 per disk. 
Exhibitors of hardware, software, accesso- 



ries, 'Answer Room" - free 10 minute con- 
sultation. 
Trader's corner for used equipment. 

Cost: Pre- registration (before April 15 and 
inciuding one year's Associate mem- 
bership) $45.00, For more information, 
contact: 

Doris Bradley 
TPUG Business Office 
12I2A Avenue Road 
Toronto, OnLM5M4Al 
416 782 9252 



The Second Annual Commodore User 
Computer Fair 

MARC A, The Mid-Atl antic Commodore Asso- 
ciation, is planning their second exhibition to 
be held at the new Sheraton Convention 
Centre in Valley Forge, PA. The new centre, 
which is still under construction, will open 
this spring as the "largest privately owned 
convenhon centre in the U.S.A." Over 30,000 
square feet of exhibit space has been re- 
served for the show. 

Dates: July 26, 27, and 28, I9S5. 

A complete line-up of speakers and seminars 
is already organized with the schedule so far 
standing at about 12 different lectures every 
hour. For more Information: 

Joel A Casar 
Exhibits Chairman 
2015 Garrick Drive 
Pittsburgh, PA 15235 
412 371 2882 



Survey Shows Commodore in 
Top Ranks of Electronics Induslry 

Commodore Internationa] Ltd. continues to 
maintain its stronghold in the microcomput- 
ing and consumer electronics market, ac- 
cording to a report published recently by 
Electronic Business Magazine, Boston. 

Of the top 200 companies in the field of 
electronics over the past five years, Commo- 
dore International was ranked in first or sec- 
ond position in all four major financial 
catagories researched. 

Commodore ranks at the top in 5-year net 
income growth rate (91.8% per year average) 
and in return on investment (30.7%) and 
second in 5-year revenue growth rate (68.5% 
per year average) and in return in equity 
(46.1 



For further information, contact Allan Rey- 
nolds at 416 922-5556 
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5-YEAR REVENUE GROWTH RATE 

Percent 
Top 10 per year Rank 

Tandem 76.7% .... 84 

Commodore Inlemational 68.5% .... 73 

ROLM 58.5% .... 78 

Cray 58.1%. ..149 

CPT 54.7% ... 135 

Paradyne 51 .8% ... 129 

Wang Laboratories 50.7% 29 

Computen/ision 47,6% .... 89 

SCI Systems 47.4% ... 102 

Docutel/Olivetti 45.6% ... 132 

Bonom 5 

ITT -1.5% 4 

Cincinnati Milacfon -2.5%. . . 171 

LTV -2,7%... 189 

AMF - 5.9% ... 144 

Gould - 6.7% .... 39 



5-YEAR NET INCOME GROWTH RATE 

— 1 , ■ ■ ■ i 'i I ■ ■ 

Percent 
Top 10 per year Rank 

Commodore International 91 ,8% — 73 

Tandem 70,3% .... 84 

Computervision 63.9% ... 89 

Cray Research 58.6% - ■ 149 

ROLM 58.0% .... 78 

Wang Laboratories 577% .... 29 

CPT 54.7% , . . 135 

Compuler Consoles 53.1%, . . 199 

Watkins Johnson 52,2%. . . 139 

SCI Systems 47.8% . . 102 

Bottom 5 

Bally -30.4%. . . 120 

AT&T Technologies -32.4% 2 

Scientific-Atlanta -40.7% , . . , 94 

AMF -40.9%. . . 144 

Managemeni Assistance — 69.3% — 92 



RETURN ON INVESTMENT 



RETURN ON EQUITY 



Top 10 Percent Rank 

Commodore 30.7% .... 73 

Dysan 23,4% . . 1 30 

Aydin 23.3%.,, 159 

Micom Systems 227% . . , 190 

SmithKline Beckman 22.1%. ... 72 

E-Systems 21 .9% .... 65 

Tandy 21 .8% . . . , 22 

IBM 20-6% 1 

EG&G 20.2% ... 1 18 

Diebold 19.6%,.. 115 

Bottom 5 

Centronics -8.9%... 152 

Doculel/Oliveltl - 10.8% ... 132 

Texas Inslruments -10.2%.... 10 

Warr>er Communications - 26.5% — 45 

Kratos -32.3% ... 182 



Top 10 Percent Rank 

Transitron Electronics 64.1%.. . 186 

Commodore Internalional 46.1% 73 

Lockheed 31 .0% - . - , 53 

Dysan - 27.2% ... 130 

Aydin 25,4%, , . 159 

Ford Motor 25.1% .... 30 

Tandy 24.8% .... 22 

SmithKline Beckman 23.6% .... 72 

IBM 23.6% 1 

Technicom International 23.5% ... 169 

Bottom 5 

Centronics - 12.7% ... 152 

Docutel/Olivetti -20.1%, . . 132 

Savin -18.2%... 117 

LTV -20.5%... 189 

Warner Communications -43.5% — 45 



Transactor News 
Transactor Disk Offer Update 

As of this issue There are 6 Transactor Disks; 

Disk 1 : Ail programs from Volume 4 
Disk 2: Volume 5, Issues 01-03 
Disk 3: Volume 5, Issue 04 (Business & Ed.) 
Disk 4: Vol. 5, Issue 05 (Hardware/Periphs.) 
Disk 5; Vol. 5, Issue 06 (Aids & Utilities) 
Disk 6: VoL 6, Issue 01 (More Aids & Utilities) 

Transactor disks are now available on a sub- 
scription basis through the order form in the 
centrespread of the magazine. Disks can be 
purchased individually for $7.95 (Cdn,) each; 
the extra two dollars that was to be charged 
for the firs! disk has been dropped. 

Perhaps a word of explanation is in ordtr 
here. The original idea was to charge $9.95 
for the first disk you purchased, and we'd 
make up a mailer for that disk (and each 
subsequent one) which contained your 
name, address, paid postage, and a two dollar 
off coupon for future disks- As it turned out, 
post office regulations nixed the mailer idea, 
so we decided to just send disks out on an 
individual basis for $7.95, and offer disk sub- 
scriptions. The subscription is mainly as a 
convenience, since our pricing philosophy 



dictates a rock-bottom price for single disks, 
and the discount for a subscription rather 
than individual purchase isn't thai great. 

To anyone who already sent in $9.95 for their 
first disk we'll credit the two dollars toward 
future disks or subscriptions. 



The Complete Commodore 
Inner Space Anthology 

In the last issue we announced that orders 
were being accepted for The Complete Com- 
modore Inner Space Anthology. Then we 
referred to the back cover ad which pro- 
ceeded fo say. ''Watch For It. January 1985". 
Due to a slight mix-up, this ad was not the 
one we intended for the back cover spot. In 
fact, as most of you probably noticed, it was 
the exact same ad as the previous issue pub- 
lished in December 1984. The back cover ad 
of this issue is the one that should have 
appeared and we apologize for any confusion 
or inconvenience this may have caused. 

Also, the price announced last issue has been 
changed to $14.95. An oversight in costing is 
the reason for the slight increase but we fully 
intend to honour any orders we've already 
received at the former price. 



Once again, we are now taking orders for the 
long awaited second edition of the Special 
Reference issue. As you can see, the title is 
somewhat different than its predecessor, but 
then so is the inside. Of course mos! of the 
material from the first edition is included, 
with twice as much again added. 

The price? Just $14,95! Originally the price 
was projected at around $25 dollars. Two 
reasons account for the difference. First, the 
disk we intended as part of the package will 
now be made available separately {details 
next issue). Secondly, we have decided to 
publish the book on our own. Previously we 
had considered releasing the book to an out- 
side publisher but by doing it ourselves the 
price can brought down substantially. 

The Complete Commodore Inner Space An- 
thology is currently available by mail order 
only through The Transactor- (Eventually 
they will be appearing in the major book 
chains, but at a slightly higher price) The 
easiest way to order is with the postage paid 
reply card at the center of the magazine. Mark 
the card appropriately and don't forget your 
postal/zip code, if you're paying by charge 
card, please include the expiry date. If you're 
sending a cheque, you can tape the postage 
paid card to the outside of an envelope. 
Please allow 4 weeks for delivery. 
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Notice to * Transactors" 

Planning to write an article to submit for 
publication? Great! However, we get a lol of 
articles !rom authors around the world and 
although 90% of them are superb, we only 
regret that we can't publish them all. 

One of our main criteria for choosing an 
article is the amount of time it wiil take us to 
prepare the materiai. If a diskette is included 
with your article in some kind of text file, the 
preparation lime is reduced by easily 95%, 
Most authors are using a wordprocessor to 
write their material and most articles are 
submitted along with a disk, but (hose that 
aren't get pushed lo the bottom of the pile. 
With the price of a disk hovering at aboul $4 
each, it shouldn't be too hard to justify Ihe 
expense, considering we pay $40 per printed 
page. And Ihe investment just mighl secure 
your article a spot in Ihe magazine. 

Summed up, if you are sending us an article 
you have written on a wordprocessor, please 
include a disk with the text files, Anv file 
types are acceptable since even if we don't 
have the particular software you have, it 
usually isn't too hard to convert them for our 
use. Drive type isn't a problem for us either - 
we have Ihem all. Naturally you should also 
include any programs that accompany your 
text- 



Software 

New Software From Commodore 

Commodore Business Machines Limited is 
please to announce \4 new software titles for 
the Commodore 64, These educational pro- 
grams are designed for children from pre- 
school to junior high. 

CHILDSPLAY is a series of educational games 
specifically designed for the preschooler. The 
first package. Letters. Shapes & Numbers in- 
troduces a child to the alphabet, different 
shapes and the number system. Interaction 
between the child, Ihe screen and the key- 
board reinforces the fundamental concepts of 
learning. The second package in the Childs- 
play series is Match'em, Copy Cat. Match'em 
is a game where Ihe child is challenged to 
recognize the difference between two objects 
on the screen. The computer will keep track 
of the score and display it after the child has 
completed a round. Copy Cat is a computer- 
ized version of 'follow the leader'. This pro- 
gram will display a series of shapes on the 
screen which the child must duplicate - a fun 
way to develop memory recall skills. Childs- 
play would also benefit any child with learn- 
ing disabilities. Childsplay is designed to give 
preschoolers the head start they deserve. 

EDUKAT Junior Math Series is comprised of 8 
different math topics designed for children 8 
to 1 . The topics covered are: 



• Addition 

• Subtraction 

• Division 

• Multiplication 

• Geometry 

• Graphing 

• Decimals part 1 

• Decimals part 2 

The EDUKAT Series was created by profes- 
sional educators to allow students lo be tu- 
tored at the touch of a button. Each program 
gives the student step by step instructions on 
how to solve problems in each particular 
topic. The program will then give the student 
a lesson on what they have just learned. If the 
student runs into any difficulty help is availa- 
ble in the form of hints. After the student has 
completed a lesson, a report card can be 
generated which will outline Ihe students 
strong areas and the areas where they en- 
countered problems, 

COMPUQUIZ is a trivia game for kids of all 
ages. The series consists of 4 different pack- 
ages. These are: 

• Sports 

• Science 

• History 

• General Interest 

Each category comes on its own separate disk 
with l.QOO different questions. In COMPU- 
QUIZ you match wits against your opponent. 
A question is flashed on the screen with 4 
possible answers. Use either a joystick or the 
keyboard to be the first to answer correctly 
and the prize is yours. Answer 9 questions 
and you win Ihe game. For more information, 
contact: 

Customer Service 

Commodore Business Machines, Ltd. 

7261 Victoria Park Avenue 

Markham.OnLL3R2M7 



Magnetic Templates 

Database and spreadsheet programs have a 
great potenhal for becoming the workhorses 
of home and small business computing. With 
proper application templates, there is no end 
to the type of projects they can tackle. They 
are also written by people who would be 
unwilling or unable to write the same pro- 
gram "from scratch" in Basic or any other 
language. In addition, as anyone who has a 
shelf-load of specific programs will tell you, 
not having to learn a new set of keystrokes 
and set-up procedures for each application 
greatly simplifies its use. Once you learn the 
ins and outs of the database or spreadsheet 
program, you already know how to run, mod- 
ify and print the new application. Running 
several different types of applications will go 
much smoother if you can focus on the infor- 
mation you are working with, and not how to 
run The Program. 



We believe there is a lol of potential for both 
general and specific application templates for 
these master programs. Also, the tie-in to the 
"shareware" concept and the automatic roy- 
alties to authors makes the project just loo 
tantalizing NOT to try! 

This is initially an experiment, the success of 
which hinges on a rather optimistic percep- 
hon of human nature. First, there must be 
enough spreadsheet and database users out 
there who can develop high quality applica- 
tions, who can explain their use and modifi- 
cation clearly to others, and who are willing 
to put the product of their labour out in the 
marketplace. Second, there must be a suffi- 
ciently large group of users who will be will- 
ing to make a non-mandatory payment to 
the authors and to the distribution organiza- 
tion that made the whole thing possible. 

If this project is successful, it will be one of 
those business situations in which everyone 
WINS, We will be rewarded for our concept 
and organization, authors will be rewarded 
with royalty checks, and users will be re- 
warded by only paying for the software they 
actually USE. 

Interested? If so, do two things: 

1. Send a U.S. stamped, self-addressed *10 
envelope. In a few months you will either 
receive a catalog of available templates, or 
a full progress report on the evolution of 
the project, 

2. Make a list consisting of two categories; 
Templatesyou would like to see. and Tem- 
plates that you could develop (note the 
program they would run on). 

\i you express interest in developing tem- 
plates that we feel are appropriate for this hrst 
catalog, we will send you a copy of ''guide- 
lines for submission" with information on 
format and documentation. 

For now the project is limited to the Commo- 
dore 64 computer with disk drive. This is the 
machine that Steward Brand calls the "BIC 
lighter" of computers. I call them both 
TOOLS, They are both igniters of potential 
energy. What we have after is the warmth of 
the fire not the prestige of the tool. Both the 
BIC and the C-64 are capable of lighting 
some pretty big fires. For further details, con- 
tact: 

Cooperative Design 
P.O. Box 138 500 Aurora Ave. N. '201 

Langley, WA 9826U Seattle. WA 98109 
206 221 2373 206 682 8663 



Graph-Tech Software Co. Releases 
3-D World 64 

Graph-Tech Software Co. of new York has 
just released 3-D WORLD 64, a new wire- 
frame graphics package for Ihe C-64, which 
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allows the creation of complex 3- 
dimensiona] objects, which can then be 
viewed on screen and/or plotted as line-art 
to the Commodore ^520 Plotter/printer. Ob- 
jects are defined by entering points in a 3- 
dimensional space utilizing the cartesian 
cuordinate system, and then line segments, 
also entered by the user, are drawn connect- 
ing those points. 

Objects created using 3-0 WORLD can be 
manipulated on screen as well as on paper. 
This program allows the ROTATION of any 
image in 3-dimensions on all three axes, a 
well as SCALING and TRANSFORMATION. 
3-D WORLD 64 is totally menu-driven, and 
requires no additional hardware or software 
to generate the high-resolution screens or to 
handle the plotter routines. The program is 
100^ compiled code, and is set up in inte- 
grated program modules; in addition, "object 
definition files" can be created outside of 3-D 
WORLD 64 (ie. in BASIC), and as long as they 
are formatted lo disk in the same structure as 
explained in the accompanying 50 page man- 
ual, thev can be used and manipulated within 
3-D WORLD 64. 

Sample objects such as the ones pictured 
here are included on the program diskette. 
Suggested retail price is $39.95 U.S. Address 
all inquiries to: 

Graph-Tech Software Co. 
1315Third Avenue, No, 4C 
NewYork. NY 10021 





Enhanced Version of Flexidraw 
Available From Inkwell Systems 

San Diego-based Inkwell Systems releases 
Flexidraw 4.0, a major update of its successful 
lighl-pen graphics package for the C-64. En- 
haneemenls to the program include in- 
creased drawing capabilities, an expandable 
work area, custom fonts, more than 500 pat- 
tern fills and an oops feature for "fill-spills.'' 
The update allows picture ediling in Ihe col- 
our program and has improved lelecommu- 
njcations capability, A wider variety of 
printers and interfaces are now compatible 
with Ihe update. This Flexidraw program was 
exhibited at World of Commodore il. 

The new program includes arcs and ellipses 
as well as three line width choices increasing 
drawing versatility. Moreover, the addition of 
two-dimensional 90° rotation and flip capa- 
bility expand figure manipulation polential. 

Using a split-screen feature, larger drawings 
are now possible by creating an expandable 
work area. These drawings can then be 
printed two screens at a lime by linking them 
horizontally or vertically- 
Graphic design capability includes 6 custom 
fonts, each available in regular or expanded 
size, and one large letter font in an ornate, 
Old English style. The 7 choices compliment 
the standard Commodore character set. 

With over 500 pattern fills, Flexidraw pro- 
vides the user with a larger choice of patterns 
to add texture and dimension to projects. 



The colour program includesa zoom function 
forone-pixel editing, an improvement which 
allows original designs to be altered and then 
saved to disk. These coloured piclures can 
now be printed on several of the new color 
printers currently available- 
Improved telecommunications capability fa- 
cilitates quicker transmission of design work 
for adjustments and approval. 

Inkwell Systems 
RO.Box 85152, MB290 
San Diego, CA 92138 



Books 

Closing The Gap announces publica- 
tion of ^'Computer Technology For The 
Handicapped" 

Henderson, Minnesota — Closing The Gap 
(CTG), Internationally recognized resource 
authority on microcomputer applications for 
special needs populations, announces the 
publication of "COMPUTER TECHNOLOGY 
FOR THE handicapped;^ the selected pro- 
ceedings from the 1984 CTG Conference held 
September 13-16 In Minneapolis, MN. 

''Computer Technology For The Handi- 
capped" is a treasury of state-of-the-art mi- 
crocomputer applications written for special 
education and rehabilitation professionals as 
well as handicapped individuals, their fami- 
lies and associates. This 260 page book de- 
tails 45 of the more than SO presentations 
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made at the CTG Annua) Conference and 
focuses on how computer technology can 
lielp the handicapped or disabled person - 
not tomorrow, not next year, but today. Top- 
ics include microcomputer applications in all 
disability areas - hearing and speech im- 
paired, blind and vision impaired, physically 
and mentally handicapped - as well as com- 
plete contact information on all presenters, a 
listing of nearly 60 hardware and software 
producers who exhibited at the conference, 
and an introduction by Dolores Hagen, co- 
founder of CLOSING THE GAP and author of 
the acclaimed "Microcomputer Resource 
Book for Special Education." 

"Computer Technology For The Handi- 
capped" provides information that is crucial 
for the delivery of technology to the disabled 
populations Written by experts in their re- 
spective fields from around the world, "Com- 
puter Technology For The Handicapped" has 
been edited into an easy-to-understand for- 
mat that allows everyone access to informa- 
tion which can enable handicapped and 
disabled persons to meet their everyday 
needs of education, communication, voca- 
tion, recreation and independent living. 

''Computer Technology For The Handi- 
capped" retails for $17.95. For further infor- 
mation, please contact: 

Budd Hagen 
Closing The Gap 
P.O. Box 68 
Henderson, MN 56044 
612 248 3294 



Directory of Online Industry Profes- 
sionals - The Who, What, When, 
Where, and How 

A unique resource for online industry profes- 
sionals and subsidiary markets is available in 
the just-released Marquis Who's Who Direc- 
tory Of Online Professionals, containing 
more than 6,000 professional profiles repre- 
senting every part of the field, from users to 
vendors of online products and services, 

"We believe the industry has reached a level 
of growth," stales editor-in-chief Nancy 
Gorham "that makes such a reference book 
vitar\ Advancing, by conservative estimates, 
at an annual growth rate of more than 23%, 
the online industry is eyeing a gross value by 
year-end of $2 billion. The Directory is de- 
signed to be the primary communication tool 
for the entire industry. 

''We have culled essential facts from the pro- 
fessionals included, for example, online ex- 
pertise, current monthly online usage, 
equipment used, database subject expertise, 
databases and systems used, professional af- 
filiation and function, articles and books, and 
of course, other career and training informa- 
tion, plus address and phone number(s) 
when available. 1 believe there is no better 



resource for the exchange of ideas and com- 
munication in Ihe industry. We have the 
who, what, when, where and how of the 
industry wrapped up in this volume/' 

Multiple indexes enable users of the Direc- 
tory to locate individuals by subject expertise, 
online function, or geographic area. 

"The information presented," notes Gorham, 
"has given us a rare picture of the nature of 
the industry and the people in it." 

The Directory pulls together for the first time 
the growing online field. While the industry is 
a developing one, it is already internationally 
important. Forty-seven countries are repre- 
sented in the Directory; over 20% of the 
professionals listed are non-U, S-. including 
\ \ % from European countries." 

Regarding functional skills represented in the 
Directory: 

• 54% are intermediary searchers 

• 23% are information managers 

• 10% producers of database products & 

services 

• 8% are end users. 

The database subject expertise of these on- 
line professionals reveals that: 

• 30% cover business areas 

• 25% have expertise in medicine 

• 12% have expertise in current affairs 

• 9% have expertise in energy. 

The Directory of Online Professionals is a 
hardbound volume containing 829 pages. 
The cost is $85,00, 

A computerized version of the Directory, 
known as the Marquis PRO-Files Database, 
will be available on DIALOG in 1 985 through 
the Marquis Data Products Department, For 
further information, please contact: 

Morris Watlenberg 
Marquis Who's Who, Inc. 
200 East Ohio Street 
Chicago, Illinois 60611 
312 787 2008 



Hardware 

*Tru€ Piano Feel'' Keyboard Released 
by Comniodore 

Commodore Business Machines, Ltd. has in- 
troduced the Music Male keyboard for the 
C64 to provide realistic instrument reproduc- 
tion. 

Covering 2 1/2 octaves, the keyboard fea- 
tures the ability to play three notes simultane- 
ously; record and playback capabilities; 
adaptability to joystick port; and eight instru- 
ments preset - plus the ophon to define your 
own. 



The Music Mate Keyt>oard is featured at an 
attractive suggested retail price of $149.95 
and is packaged with the initial disk-based 
software which normally retails for $39.95. 

Additional program disks are available for 
the keyboard, including: Song Builder, featur- 
ing additional speed control, recording and 
overdubbing qualities; Song Editor, which 
will display and edit songs written with the 
Song Builder; Song Printer; and Sound Maker 
- a full colour graphic display panel allowing 
the user to personally program the shape, 
volume and tone of desired sounds. 

Richard G. Mclnlyre 

Vice President, Sales 

Commodore Business Machines, Ltd. 

3370 Pharmacy Avenue 

Agincourt,Ont.MlW2K4 

416 499 4292 



Kobetek Announces Valiant Turtle 

Kobetek is pleased to announce the availabil- 
ity of the VALIANT TURTLE. Unlike earlier 
turtles, this incredibly versatile robot is re- 
mote controlled by an infra-red transmitter 
and the software allows it to execute all 
LOGO commands. Children love its iooks 
and teachers appreciate its impressive array 
of capabilities: the turtle's two independent 
stepper motors make it the most accurate on 
the market, it is powered by ten nickel- 
cadmium rechargeable batteries - simply 
plug the power adaptor (included) into a 
socket on the turtle; two illuminated eyes 
serve as power indicators - they go out before 
any other functions fail; it carries a pen which 
can be raised or lowered to trace its move- 
ments. The turtle moves in units of 1 cm but 
can be programmed to move in units of 1 
mm, 1 inch or 1 meter and it can draw 
smooth circles and arcs. The Valiant Turtle 
comes as a complete package: turtle, batteries 
infra-red transmitter, power adaptor, pen, 
manuals and software. 

The Valiant Turtle interfaces with most popu- 
lar microcomputers including: C-64, Apple, 
BBC, DEC Rainbow, IBM and Spectrum. At 
present, only the C-64 and BBC versions are 
available, but the others will follow in the first 
quarter of 1985. A French language version 
of the software is available. LOGO workbooks 
can be obtained at an additional cost. The 
Valiant Turtle is manufactured in England by 
Valiant Designs Limited. For further informa- 
tion, please contact: 

Kobetek Systems Limited 
1 1 13 Commercial Street 
NewMinas, N.S. B4N3E6 
902 678 9800 
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The Transactor presents, 

The Complete Commodore 

Inner Space Anthology 



odore 



Inner Space Anthology 




Only $14.95 

Postage Paid Order Form at Center Page 
See News BRK (page 77) For Details 



